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Hoy en día y en casi todos los países, no se concibe que los ordenadores no estén introducidos 
en cualquier área de la actividad social y económica, ya en el mundo de la producción, de la cul- 
tura o del arte. Baste recordar que el «Financial Times» eligió como «hombre del año 82» al orde- 
nador personal. 

Almargen de la paradoja, la decisión supuso la aceptación por la cual la informática había sa- 
lido del mundo científico y se había hecho popular y cotidiana. 

Se puede decir que se ha iniciado una nueva revolución, comparable al nacimiento de la escri- 
tura o al de la imprenta. Por otra parte, la informática es pilar de base de la inteligencia artificial y la 
robótica, que producirán grandes modificaciones en nuestra vida. No es exagerado este pronós- 
tico, pues en los últimos cien años los avances científicos y tecnológicos han crecido de forma ex- 
ponencial. 

Esperemos todos y deseemos que estos avances sirvan para conseguir, además de una vida có- 
moda, un mundo mejor, más justo y feliz. 

El presente libro te puede ayudara encarar el reto informático en el que estamos todos. Supere- 
mos el eslogan «o programas, o te programan». Para ello te proponemos una introducción al len- 
guaje más extendido, el BASIC que puedes utilizar en cualquier ordenador personal. 

Cada tema consta de una exposición teórica con programas comentados. Al final hay una co- 
lección de programas propuestos, de dificultad creciente, a fin de que domines este lenguaje. 
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INTRODUCCION 


El trabajo que se acompaña arranca de la iniciativa tomada en febrero del 83 por la cual nos 
propusimos dos profesores del Seminario de Física y Química alcanzar los conocimientos para 
el manejo operativo de microordenadores. 

Tras una preparación intensiva (con asistencia a varios cursillos) y en buena medida autodi- 
dacta, impartimos el primer cursillo de programación BASIC para profesores interesados de 
nuestro Instituto en septiembre del 83, y comenzamos ese mismo curso a impartir clases de In- 
formática para los alumnos como una asignatura optativa, tras la autorización del M.E.C. para 
2.” BUP. Al año siguiente se extendería a 3." BUP, y con el actual son ya cuatro cursos los que se 
imparten de esta materia. 


MEMORIA DEL TRABAJO 


El trabajo realizado ha sido la elaboración de un libro sacado de la experiencia de nuestras 
clases con los alumnos de Informática. Este libro trata del lenguaje de programación BASIC en 
un intento de aprovechamiento multidisciplinar, y consta de 15 capítulos (ver índice) que se ca- 
racterizan por: 

— en cuanto a su estructura: 

1. Sintaxis del BASIC y algunas rutinas en código máquina para procesador Z 80A. 

2. Programas de carácter multidisciplinar a resolver por cada capítulo. 

3. Un capítulo dedicado al tratamiento didáctico de Matemáticas, Física, Química, Bio- 

logía e Inglés por ordenador. 

— en cuanto a su intencionalidad: 

l. Aprendizaje de un lenguaje de programación. 

2. Aproximación al mundo de la Informática. 

3. Resolución de supuestos que abarquen: 

e tratamiento de textos, 
e cálculo numérico, 
e dibujos y gráficos. 


OBJETIVOS GENERALES 


Frente al libro 


1. Instrumento de consulta y ayuda de cara a la elaboración de programas. 
2. Elaboración, dentro de un mismo contexto, de lenguaje BASIC, rutinas en código má- 
quina y su aplicación a programas. 


Frente al educando 


1. Familiarización y uso por el alumno de esa formidable herramienta en que se ha conver- 
tido el ordenador. 
2. Captación del interés del alumno por esta nueva tecnología, haciéndole ver: 
e sus limitaciones para destruir el mito, 
e sus posibilidades como usuario de esta tecnología. 
3. Posibilitar caminos de análisis y estudios más completos y profundos sobre determina- 
dos temas. 
4. Proposición de supuestos a resolver con fines específicos y de elección libre. 
5. Reducir o suprimir en lo posible el tiempo dedicado a la rutina o a cálculos repetitivos. 
6. Provocación de actitudes críticas del alumno frente al ordenador, impidiendo que sea un 
sujeto simplemente receptivo y pasivo. 
7. Acentuación en el acercamiento entre alumno y profesor, creando un ambiente de con- 
currencia alrededor del fenómeno informático. 


OBJETIVOS OPERATIVOS 


Se ha distribuido el contenido de la obra en dos cursos. El primero, para 2. BUP, abarca 
hasta el Cap. VIII mientras que para 3.” se realiza un repaso al comienzo del curso de lo apren- 
dido en 2.” y posteriormente se desarrolla el resto del libro. 

La enseñanza tiene como fin la realización de programas por parte de los alumnos, agrupa- 
dos en equipo de 3. 

Al final de los dos cursos el alumno ha adquirido la suficiente destreza en este lenguaje para 
realizar un trabajo «fin de curso», relativamente complejo y tutelado por el profesor. 


RESULTADOS OBTENIDOS 


Se ha observado que el alumno que posee algún microordenador en casa tiene una ventaja 
operativa respecto a sus compañeros. 

Al margen deesta circunstancia, hemos de señalar quelos alumnos han quedado capacitados 
para: 

— abordar cualquier otro lenguaje de alto nivel, como Pascal, 

— profundizar en un BASIC avanzado, 

— conocer más a fondo el amplio mundo de la Informática y sus aplicaciones. 


REALIZACION DE LA EXPERIENCIA 


El desarrollo del trabajo constituye el libro que se acompaña, utilizado por nosotros desde el 
curso 84-85. 


TEMA 1 


LA INFORMACION: SU TRATAMIENTO E 
HISTORIA 


¿€ C111000d00000d0odddad00 > 
0100011000600d11a0 
00110011100000s1 
00010010 0100 
0110 _-7_ ad Do000 
1110 E qn 1 1101 
101 1 rn : A O - E: 
010101001010100 
001100010600d1d1100 

..10100101d10010 


al 


AS e 
e, 


ELEMENTO BASE DE UN ORDENADOR Y LA INFORMACION QUE PROCESA. 


MEDIDA DE LA INFORMACION. EL BIT Y EL BYTE 


La información puede ser analógica o digital: 

— Analógica: Silainformación puede tomar un continuo de valores, como la que nos podría 
dar un termómetro o un disco al escuchar la música. 

— Digital: Cuando la información es discreta, es decir, sólo toma ciertos valores, comolain- 
formación que proporciona un dado o una ruleta. 

Para clarificar la diferencia entre los dos conceptos, imagina una pelota en un determinado 
piso de un edificio. El piso en que se encuentra es información digital. Lalanzamos por la ventana 
y las alturas por las que va pasando, que varían de forma continua, es información analógica. 
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La información digital binaria sería la que define solamente dos estados, que son mutua- 
mente excluyentes y que definen todas las posibilidades. Se representarán numéricamente porel 
0 y por el 1. Unos ejemplos podrían ser: 


0 - NO CERRADA CRUZ APAGADA NO HAY TENSION 
1 - SI ABIERTA CARA ENCENDIDA HAY TENSION 
| ordenador 
bombilla 
moneda 
puerta 
disyuntiva 


La medida matemática de la información es el logaritmo en base dos del inverso de la proba- 
bilidad del suceso 


1 
log, PS) 


Así, la probabilidad de sacar cara o cruz en el lanzamiento de una monedaes 1/2, y, por tanto 


1 
| = log, 172 = 1 


A esta unidad se le da el nombre de bit (binary digit) y es la unidad mínima de información. Para 


; 1 
un dado sería 2,585 bit, que es log, + 
Con sólo tres bit, simbolizados con el O y el 1 podemos transmitir ocho informaciones, que 


corresponden a: 


primera 000 
segunda 001 
tercera 010 
cuarta 011 
quinta 100 
sexta 101 
séptima 110 
octava 111 


El número total, son las variaciones con repetición de dos elementos (0 y 1), tomados de 3 en 
3. La fórmula da 2*. Por lo tanto, utilizando sólo tres bit se podrían transmitir ocho informacio- 
nes diferentes, letras o números. Como esto es claramente insuficiente, se utilizan agrupaciones 
de ocho bit, llamadas octetos o byte. 

El número de posibilidades es entonces 2* = 256, con las que podemos transmitir todo el 
abecedario, con mayúsculas, minúsculas, números del O al 9, símbolos especiales y caracteres 
gráficos, etc. 
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HARDWARE. ESTRUCTURA DE UN ORDENADOR 


Esta palabra inglesa significa chatarra, y eninformática hace mención al conjunto de elemen- 
tos físicos del sistema: consta de microprocesador, memorias y periféricos. Estas partes están 
unidas físicamente entre símediante conductores llamados BUSES, que son los que transportan 
la información codificada en binario entre las distintas partes del sistema. 


BUS DE DIRECCIONES 


$7 
IS 
D 
a 
£0 


BUS DE DATOS 


ENTRADAS 


Vamos a ver cómo actúa cada parte por separado: 
1. U.C.P. (UNIDAD CENTRAL DE PROCESO) 


Se encarga de: 

— recibir las instrucciones del programa y decodificarlas, 
llevar el control de registros, 

controlar las operaciones aritméticas y lógicas, 

llevar secuencialmente los diversos pasos del programa. 


Si una línea de programa fuera LETC= A + B (es decir, el resultado de sumar A con Bse al- 
macena en la celda de memoria C), la secuencia de pasos que realiza la U.C.P. es: 

PASO 1: Averigua la dirección de memoria donde está almacenado el valor de A. Se hace 
mediante el registro de direcciones y el bus de direcciones, que averigua el dato en la memoria 
ROM, y esta dirección entra por el bus de datos. 

PASO 2: Averigua el valor de A. Para ello, la dirección hallada anteriormente sale por el bus 
de direcciones, yendo a la memoria RAM, y averiguando el valor de la variable A, que está allí al- 
macenada. Entra a la U.C.P. por el bus de datos, pasando al acumulador. 

PASO 3: Leyendo secuencialmente la orden A + B, ahora corresponde sumar. En la ROM 
se busca «sumar» (ADD) y un número codificado entra por el bus de datos, yendo al registro de 
instrucciones. Una vez decodificado, la unidad de control sabe que corresponde a ADD. 


Sus partes se pueden esquematizar de la siguiente forma: 


BUS DE CONTROL 


CONTADOR 

DE PASOS 
REGISTRO DE 

INSTRUCCIONES 


U. CONTROL 
DECODIFICADOR DE 
INSTRUCCIONES 


REGISTRO 
DE DATOS 


REGISTRO DE 
DIRECCIONES 


“al ACUMULADOR 


BUS DIRECCIONES 


BUS DATOS 


PASO 4: Búsqueda de la dirección de B, análogo al 1. 

PASO 5: Averigua el valor de la variable B, análogo al paso 2. En cuanto el acumulador tiene 
los dos valores, los pasa ala U.A.L. (unidad aritmético-lógica), que los suma, por instrucción re- 
cibida por la unidad de control. 

PASO 6: Almacena la suma en C. El registro de direcciones se encarga de buscar en la me- 
moria una dirección no ocupada cuyo número viene dado por el bus de datos. 

PASO 7: La unidad de control manda la dirección anterior y el valor de la suma a la RAM, 
para su almacenaje. 

PASO 8: El contador de pasos sigue contando, y como ya se ha terminado la secuencia, el re- 
gistro deinstrucciones manda a porelnúmero codificado dela instrucción que detiene la secuen- 
cia de operaciones, que una vez decodificado hace que la unidad de control detenga el proceso. 
Así, instrucción tras instrucción. 


2. MEMORIAS ROM Y MEMORIAS RAM 
ROM viene de Read Only Memory (memorias de solamente lectura). En estas memorias se 
encuentra el sistema operativo, es decir, cómo tiene que hacer cada cosa, y cuáles es capaz de ha- 


cer. Para un mismo microprocesador, según sea la capacidad y programación de la ROM, el or- 
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denador será más o menos sotisficado. Esta programación la realiza el fabricante y no se borra al 
desconectar el ordenador. 

Así, por ejemplo, el Spectrum y el Amstrad llevan el mismo microprocesador, el Z80A, de 
ocho bits. Pero el primero tiene 16 K de memoria ROM y el otro 32 K (digamos que sabe hacer 
«el doble» de cosas). 

PROM (Programmable Read Only Memory). Essemejante a la anterior, pero puede ser pro- 
gramada por el usuario, pero una sola vez (esta memoria no la dispone el ordenador personal). 

EPROM (Erasable Programmable ROM). Se puede programar varias veces, y el borrado se 
hace mediante rayos ultravioleta. 

EAROM (Electricaly Alterable ROM). Análoga a la anterior, donde tanto la grabación 
como el borrado se hace mediante impulsos eléctricos. 

RAM significa Randon Access Memory (memorias de acceso arbitrario). En ellas se almace- 
nan los datos e instrucciones de un programa.Sucontenidose borra al desconectar elordenador. 
Cada casilla o celda de memoria contiene un byte, es decir del O al 255 paraordenadores de ocho 
bits. 

Cada celda de memoria tiene un número que la identifica por su posición, llamado «direc- 
ción». Si decimos, por ejemplo, que una memoria es de 32 K, o también 32 Kbytes, se entiende 
que su capacidad son 32 millares de bytes (exactamente 32X1024). O sea, cada K supone 
2'"=1024 celdas. 

Supongamos una memoria de 64 K. El direccionamiento se hace con dos bytes ordenados, 
uno para la fila y otro para la columna. Como cada byte puede irde 0 a 255 queson 256 posicio- 
nes, el «tablero de memorias» da: 
256Xx256=65536 posiciones. 

Las primeras direcciones están ocupadas por la ROM, y el resto es accesible por el usuario. 


3. PERIFERICOS 

También llamados unidades de entrada-salida, son los sentidos del ordenador, encargados 
de interrelacionarle con el exterior (usuario, otro ordenador, etc.). 

Podemos clasificarlos según sea el flujo de información: 


SOLO ENTRADA SOLO SALIDA E/S 
Teclado Monitor, TV Disco 
Cartucho Sonido HIFI Cassette 
Joystick Impresora Modem 
Lápiz óptico Plotter 
Sensores Relés 

Robot 


SOFTWARE. LENGUAJES DE PROGRAMACION 


El software o logical es lo que hace operativo al ordenador. Consiste en un conjunto de ins- 
trucciones que siguen una serie de reglas, atendiendo al lenguaje de programación utilizado. El 
conjunto de instrucciones que seintroducen al ordenador para obtener un fin sellama programa. 

Aprender a programar bien no es difícil, pero se requiere: 

— dedicación, 

— cierta imaginación, 
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— conocimiento de un lenguaje (este es el propósito del presente libro). 

Por otra parte, no aprender a programar desemboca en: 

— infrautilización del ordenador, 

— dependencia, 

— futuro «analfabetismo». 

Podemos clasificar los lenguajes de programación en tres tipos: 

— lenguaje máquina (LM), 

— lenguaje ensamblador (LE), 

— lenguajes de alto nivel (LAN). 

LM: consiste en dar lasinstrucciones al ordenador directamente en su propio lenguaje (unos 
y ceros). Para hacer menos penosa la tarea se usa el código hexadecimal, en vez del binario. Esto 
se realiza de la forma siguiente: 

Si cortamos por la mitad un byte nos quedan dos conjuntos de cuatro bit cada uno (nibble). 
Estos cuatro bit cubren del 0 al 15 decimal (16 números). La correspondencia es: 


DECIMAL NIBBLE HEXADECIMAL 
0 0000 0 
1 0001 1 
2 0010 2 
3 0011 3 
4 0100 4 
5 0101 5 
6 0110 6 
7 0111 7 
8 1000 8 
9 1001 9 

10 1010 A 
11 1011 B 
12 1100 C 
13 1101 D 
14 1110 E 
15 1111 F 


Entonces, en vez de escribir un byte con ocho dígitos, es más cómodo una sucesión de dos 
nibble, o sea, dos números hexadecimales. Así, en parejas, es como se introducen en la máquina, 
una vez que está preparada para aceptarlos (programa objeto). 


LE: en este lenguaje las instrucciones a ejecutar no se escriben en lenguaje binario, sino con 
unas pocas letras que da idea de la instrucción. Por ejemplo, ADD es sumar, y LD es cargar una 
variable. Estos códigos simplificados se llaman «mnemónicos» del sistema y dependen de cada 
microprocesador (programa fuente). Este programa, para ser ejecutado, necesita su traducción 
a código máquina, que la realiza el propio ordenador con un programa llamado «ensamblador». 
Este lenguaje es más asequible que el LM, permitiendo correcciones con facilidad. 

El LM y el LE son lenguajes de bajo nivel. 

LAN: se carazterizan por: 

— ser más próximos al lenguaje humano, 

— independientes del LM de cada aparato (cada aparato posee su compilador que traduce 
el LAN a LM), 
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— orientados a una actividad específica, 

— diferente versatilidad y estructuración, 

— sucesivas mejoras con el tiempo. 

Se han desarrollado más de 1.000 lenguajes de alto nivel; sin embargo, sólo unos pocos han 
adquirido cierta importancia. 

Se dice que un lenguaje es estructurado cuando el programa en ese lenguaje se desarrolla en 
módulos independientes, teniendo cada uno una finalidad específica y fusionándolos para dar el 
programa total. En estos lenguajes los errores son fácilmente localizados en su módulo y consi- 
guientemente de fácil corrección. Si se quiere modificar un programa, se cambia el módulo co- 
rrespondiente. Además, un módulo o procedimiento puede ser repetitivo, sin necesidad de vol- 
verlo a escribir, lo que provoca una gran velocidad de ejecución. Además, puede llamarse a sí 
mismo (recursividad). 

Entre los no estructurados están: 

FORTRAN (FORmula Translation: traducción de fórmulas). Nació a mediados de los 50 y 
ha tenido sucesivos perfeccionamientos. Los más usados son: Fortran IV y el 77. Están orienta- 
dos al procesamiento de datos científicos. 

COBOL (COmmon Business Oriented Language: Lenguaje común orientado a aplicacio- 
nes comerciales). Creado en 1960 para gestión de empresas. Maneja pocos cálculos, pero gran 
volumen de ficheros, siendo muy rígido y pesado. 

BASIC (Beginner's Allpurpose Symbolic Instruction Code: código de instrucciones simbó- 
licas de carácter general para principiantes). Su sencillez, rapidez de aprendizaje, vocabulario li- 
mitado, lenguaje próximo al humano y gran variedad de aplicaciones han hecho de este lenguaje 
el más utilizado y el de crecimiento más rápido desde su creación por John Kemeny y Thomas 
Kurtz en 1965. 

Entre los estructurados, los mejores son: 

PASCAL: Desarrollado por Niklaus Wirth en Zurich, a principios de los 70. Es sencillo, 
pero riguroso. Tiene bastante restricciones en sintaxis, por lo que es preferible para cálculos 
científicos. Como su compilador no es muy extenso, es adaptable a los microordenadores. 

FORTH: Fue creado por Charles H. Moore a mediados de los 70 para control de procesos. 
Posteriormente se ha utilizado en gráficos por ordenador y aplicaciones de empresa. Estambién 
fácilmente adaptable a los micros. 

C: Creado en 1972 por Dennis Ritchie para profesionales de la programación, es muy poco 
estricto en sus reglas, pues presupone que el programador «sabe lo que está haciendo». Es de ni- 
vel medio, pudiendo manipular bits. Es transportable fácilmente de una máquina a otra que 
tenga distinto microprocesador, y tiene grandes aplicaciones en la construcción de modelos. 

LOGO: Pretendiendo aplicar los resultados obtenidos por Piaget acerca del comporta- 
miento cognoscitivo de los niños, Seymour Papert y sus colaboradores desarrollan en el MIT 
(Instituto Tecnológico Massachussets) durante 1969. 


HISTORIA DE LA INFORMACION AUTOMATICA 


Podemos clasificar esta historia en tres etapas: 
l. De1623a1889: calculadoras mecánicas. 
2. De1876 a 1946: calculadoras analógicas electromecánicas. 
3. De 1946 a hoy: ordenadores digitales. 
De forma cronológica, los hitos han sido: 
2500 A.C.: setiene conocimiento de la utilización del ábaco desde esta fecha, en distintas cul- 
turas, sobreviviendo su uso hasta nuestros días. Efectúa sumas y restas. 
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1623: 
1642: 
1666: 
OTE 
1806: 


1791-1871: 


1886: 


1941: 


1944: 


1945: 


1946: 


19515 


1956: 
1958: 


1965: 


1970: 
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Wilhelm Schickard construye la primera calculadora mecánica que se conoce. 
Pascal construye una sumadora. 

Samuel Morland construye una sumadora-restadora para monedas inglesas. 
Leibnitz realiza una máquina que multiplica por iteracción de sumas. En 1694 
construye la calculadora universal (4 operaciones). 

Jacquard construye un telar automático controlado por una sucesión continua de 
tarjetas perforadas. 

Charles Babbage construye una calculadora mecánica que utiliza un programa re- 
gistrado en tarjetas perforadas, con unidad de entrada y salida, y con una estruc- 
turainterna«Von Neumann». El primer programador fuela ayudante de Babbage, 
lady Ada Augusta, hija de lord Byron, que llegó a decir: «la máquina no hace nada 
por sí sola, pero hará cualquier cosa si sabemos decirle cómo hacerlo». 
Hollerith, funcionario americano, introduce el sistema binario para realizar el 
conteo del censo de 1880. Construye el sistema compuesto de lectora eléctrica de 
fichas (rompe el acordeón de Jacquard para aislar cada item), una tabuladora y un 
clasificador. Se establece en 1896 y crea la industria que llegará a ser IBM. 
Konrad Zuse trabajó en la alemania nazi, aislado y sin apoyo. Reinventa: concep- 
ción global de Babbage, la coma flotante de Torres Quevedo, la aritmética binaria 
de Shannon. 

Además construye el primer calculador programable. 

Howard Aiken y Thomas Watson, de Harvard e IBM, respectivamente, constru- 
yen el llamado Mark 1, que es el último calculador de relés, es decir, electromecá- 
nico. 

se construye el primer ordenador electrónico decimal, el ENIAC. Pesaba 30 Tm. y 
tenía 18.000 válvulas. 

John Von Neuman propone almacenar en la memoria de ordenador la secuencia 
deinstrucciones (programa). Este avance hace que este año sea considerado como 
el del nacimiento de la informática. 

Univac construye el primer ordenador con lasideas de Neuman. Los ordenadores 
de esta primera generación tienen un tiempo de ejecución de 1 ms. 

se descubre el transistor. 

se reduce el tiempo de ejecución de 1 ys, gracias alos transistores, que sustituyen a 
las válvulas. 

el tiempo de ejecución sereducea 1 ns,conla sustitución de transistores por circui- 
tos integrados. 

se están realizando proyectos de inteligencia artificial que culminarán con los or- 
denadores de la 5.* generación. Los objetivos a lograr son: reconocimiento de for- 
mas y frases, hacer hipótesis o suposiciones, obtener conclusiones y aprendizaje y 
su aplicación práctica. 


lenguaje máquina 
lenguaje ensamblador 


lenguajes de alto nivel 
librería de subrutinas 


Generación Tecnología Hardware 
1.2 tubos de vacío aritmética de coma fija 
(46-54) memorias acústicas 
Ze transistores aritmética de coma flotante 
(58-64) núcleos de ferrita registros de índice 
procesador E/S | 
3 circuitos integrados microprogramación 
(65-74) SSI, MSI pipelines 
memoria caché 


4.2 
(75-80) 


microprocesadores 
primera EPROM 


circuitos integrados 
LSI, VLSI 


multiprogramación multiproceso 
sistemas operativos 
memoria virtual 


nuevos lenguajes y métodos 


EVOLUCION EN LOS DIVERSOS PROCESOS DE LA INFORMACION 


2. 
Proceso 


Reconocimiento Lenguaje Escritura Símbolos 


Recitadores 


Transmisión . 
Pinturas murales 


Tiempo aproximado 
en recorrer 40 km. 


indefinido diez minutos 


Procesamiento SER HUMANO 


Señales analógicas: 


Mensajeros | Señales ópticas [Telecomunicaciones 


Señales 
digitales 


Terrestre 
Vía satélite 


instantáneo 


teléfono, radio, TV 


instantáneo 


NOTA: Cada etapa supone una mejora de la anterior, sin excluirla. 


APLICACIONES DE LA INFORMATICA 
En ciencia y tecnología: 


diseño de nuevos productos, construcciones y vehículo. 
comprobación de teorías físicas. 

predicción meteorólgica. 

aparatos de diagnóstico y tratamiento médico. 

estudios sociológicos y estadísticas. 


En gestión 


— actualización de cuentas corrientes, nóminas, inventarios. 


— cajeros automáticos, tarjetas de crédito. 


— mantenimiento y actualización de grandes bases de datos. 


17 


Control industrial: 


— instrumentos de navegación. 
— cohetes, armas. 
— control de cualquier etapa en un proceso industrial. 


Simulación de procesos: 


— desarrollo de modelos matemáticos y físicos. 
— desarrollo de modelos lógicos (sistemas expertos). 


Tratamiento de la información: 


— reconocimiento y tratamiento de voz e imágenes. 
— traducción automática, procesadores de textos. 


En la enseñanza: 


— para aprender un lenguaje informático. 
— como ayuda en la enseñanza de cualquier materia. 


Generación de dibujos y figuras: 


— aplicaciones tecnológicas y artísticas. 
— composición y análisis de música. 


En aparatos de uso corriente: 


— videojuegos, juguetes, relojes digitales. 
— programadores de electrodomésticos. 
— tableros indicadores de coches. 


PROFESIONES EN EL SOFTWARE 


Analista de aplicaciones: Analiza de una manera global el problema a resolver con la infor- 
mática. 

Analista de sistemas: Trata de encauzar el problema teniendo en cuenta el ordenador de que 
se dispone y el sistema operativo que utiliza. 

Programador: Realiza el programa en un determinado lenguaje, siguiendo las indicaciones 
del analista. 

Operador: Controla el funcionamiento del ordenador a la hora de ejecutar el programa. 

El usuario de un microordenador es todo esto a la vez y, como observamos, lo último que se 
realiza es el contacto físico con el aparato. 
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SA LET d=3ax*xl. “05 

40 LET. vos a* 3 

SO PRIMT " Ciadonal = CC 4) 

50 PRETHT 

FA PRIMHT "Lio limen = Cos 

O y 

Arista = Ec 

Diaaonal => 856.5 

Uno Limen = 15005050 


PROGRAMA N. 6. 


Todo lenguaje contiene un número de sentencias u órdenes, sirviendo cada una de ellas para 
un cometido concreto y muy elemental. Estas sentencias han de seguir unas normas generales: 

— Orden riguroso, 

— Sintaxis específica, 

— Lógica formal. 

En BASIC, el orden se consigue asignando a cada orden (o conjunto de órdenes) un número 
de línea (n.l.). El ordenador las ejecuta secuencialmente, por orden creciente. 

La sintaxis es el modo de escribir el programa. Es decir, el formato de cada sentencia, y suco- 
nexión. 

La lógica es la coherencia en la elaboración del programa, para conseguir el resultado bus- 
cado. Para ello te pueden ayudar los organigramas, explicados en el Cap IV. 


ETAPAS DEL SOFTWARE 


1.—ESCRIBIR EL PROGRAMA 
2.—IMPLEMENTACION (TECLEADO) 
3.—EJECUCION 

4.—CORRECCION DE ERRORES 
5.—MEJORA, SI ES POSIBLE 
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SENTENCIA REM 


Como su propio nombre indica (REMark = comentario), no tiene otra finalidad que la dein- 
tercalar comentarios al programa, que sirven de seguimiento. Por tanto, en síno es operativa, y el 
ordenador no hace nada cuando se la encuentra en la ejecución del programa. 

Su formato es: 


n.!. REM (aspecto a comentar) 


Esta es la única sentencia «inocente». Todas las que vienen son verdaderamente operativas. 


VARIABLES. SENTENCIA LET 


La memoria RAM se puede considerar formada por celdas individuales (semejante alas cel- 
das de un panal), que pueden almacenar caracteres (letras, númeroso gráficos). A estas celdas se 
les llamará variables porque su contenido puede variar. 

A las celdas que van a contener información se les asigna un nombre (usualmente de una o 
dos letras), que es propiamente la variable y mediante la sentencia LET se verifica su llenado. 


LLENADO DE CELDAS 


LET 
INPUT 
READ 


Pueden ser: 
— Numéricas, cuando guardan un número 


Ej.: n.l.. LET t=32 


A la celda que guarda el número 32 le llamamos «t». En las líneas siguientes a ésta, siempre 
que te refieras a la variable t, estarás utilizando el contenido numérico que tenga. 

— Alfanuméricas, cuando guardan texto o números (en este caso se pierde el carácter arit- 
mético del número). Es preciso hacer la asignación entrecomillada. 


Ej.: n.l LETA $="María” 
n.l. LET B $="Juan nació el 2-4- 1980” 
n.l. LET C $-"32" 


Observa la diferencia entre la variable tanterior y CS:contse pueden hacer operaciones arit- 
méticas, y con CS no, pues el micro toma a «32» como palabra. En algunos micros no se necesita 


pulsar la sentencia LET, y así, se pondría: 


nl.  1t=32 
nl. C$="María” 


20 


VARIABLES NOMBRES 


NUMERICAS A, IN, sto... 
J1,ZX5 

ALFANUMERICAS A$,ZC$... 
K3$, AF1$... 


También se puede imprimir una expresión literal, encerrándola entre comillas. 
Ej.: nl. PRINT “Informática” 


Ante esta forma del PRINT el micro actúa como si fotografiase lo que está entre comillas, y lo 
vertiese por la pantalla. 


NO ES LO MISMO 


PRINT 5+7 
QUE 
PRINT “5+7” 


PROGRAMA COMENTADO 


El ordenador te va a pedir el año actual, y te dirá cuántos han transcurrido desde el descubri- 
miento de América. 
El siguiente programa te lo realiza: 


10 LET a=1492 

20 PRINT “DIGITA EL AÑO ACTUAL” 

30 INPUT b 

40 LET x=b-a 

50 PRINT “Han transcurrido” 

60 PRINT x 

70 PRINT “años desde el descubrimiento de América” 


La línea 10 asigna ala variable a el valor 1492 (al tratarse de un dato fijo, la asignación es pre- 
ferible hacerla como LET). Sin embargo, como el año actual es variable, por línea 30 sele comu- 
nica este dato al ordenador. 

Una vez asignada la resta a la variable x, la línea 60 permite su impresión por TV. 

Esto corresponde ala primera etapa del software (ver pág. 19). Ahoratecorrespondeaticar- 
garlo en tu micro (segunda etapa). Para ello, una vez tecleada la primera línea del programa, has 
de pulsar ENTER (0 su equivalente en tu micro, y así queda almacenada en la memoria RAM. 

Una vez hecho esto con todas las líneas del programa, pasamos a la tercera etapa del Soft. Es 
el momento de pulsar RUN. Con esta instrucción el micro ejecuta el programa. 

Para la quinta etapa del soft habrá que esperar a que lleguemos al capítulo 3 *. 
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SENTENCIAS: INPUT, PRINT 


INPUT sirve para introducir datos por el teclado, numéricos o no numéricos. Es la segunda 
forma de llenar una variable. 
Si ponemos 


30 INPUT x 


cuando el ordenador llegue a la línea 30 esperará que le introduzcas un dato numérico, para 
luego proseguir con el resto del programa. 
Si pulsamos 


70 INPUT a $ 


el dato que esperaría que introduzcas sería alfanumérico. 
PRINT saca en TV. aquel dato numérico y/o no numérico que se le ordene. 
Esta sentencia tiene enormes posibilidades en BASIC, pudiéndolas clasificar en tres grupos: 
— cuando no se especifica el lugar de impresión, 
— cuando se especifica la posición en la línea, 
— Cuando se tiene acceso instantáneo a cualquier lugar de la pantalla. 
Empezamos con el análisis del primer grupo 
Puede realizar: 
— impresión de constantes u operaciones entre ellas, 
— impresión de variables u operaciones entre ellas. 


GRUPO 1 

PRINT a 

PRINT X$ 

PRINT “La Primavera” 
GRUPO 2 


USAR SIGNOS, ; y TAB 


GRUPO 3 
USAR PRINT AT 


Ej.: nl. PRINT7+5 
n.l.  PRINT a-b 


En el primer caso imprimirá un 12 (al principio de la pantalla), y en el segundo imprimirá el 


resultado de la operación. Para ello es necesario que los valores a y bsean conocidos por el orde- 
nador. 


Ps 


COMANDOS: NEW, LIST, EDIT, RUBOUT (DELETE) 


NEW: Sirve para dejar en blanco todas las celdas de memoria RAM. Es necesario usarla an- 
tes de introducir un nuevo programa. 

LIST: Si deseas ver el listado del programa, bien cuando lo estés introduciendo o una vez eje- 
cutado (por ejemplo, para corregir un error), se usa el comando LIST, que tiene las siguientes po- 
sibilidades en los micros más completos: 

— para ver el listado completo: pulsas LIST + ENTER, 

— para ver una sola línea: pulsas LIST n.l. + ENTER, 

— para ver el listado a partir de una línea determinada, pulsas LIST n.l.- + ENTER, 

— para ver el listado comprendido entre dos números de línea: LIST n.l.-n.l. + ENTER. 

Una vez localizada la línea en la que hubiera un error para corregirla: 

1. Conlas teclas t o J, se lleva el cursor hasta la línea a corregir. 

2. Pulsas EDIT, manteniendo previamente pulsada la tecla SHIFT. Así baja la línea a la 
parte inferior de la pantalla (lo que se denomina «editarla»). (Sólo para Spectrum). 

3. Conlasteclas= y — correremos el cursor hasta situarlo ala derecha de la parte acorregir. 

4. Pulsas SHIFT y ala vez RUBOUT (borrar). Así se irá borrando la parte deseada. En al- 
gunos microses DELETE. (Si hubiera que intercalar algo, se puede hacer en cada momento en la 
posición que está el cursor. En algunos micros es necesario pulsar previamente INSERT.) 

5. Una vez que la línea está modificada, con ENTER pasa corregida a la memoria. 

Entodoslos aparatos, si se desea borrar un línea completa de programa, bastará pulsar sun.l. 
+ ENTER. A veces te resultará más práctico hacer de nuevo una línea que corregirla. 


PROGRAMAS 


1. Las instrucciones que siguen tienen cada una de ellas una incorrección en el lenguaje 
BASIC. Detectar el error 


10 LET x=2,05 

15 PRINT k=12 

20 LET x+y=2.7 
30 INPUT x=5 

40 LET 4=x 

50 LET x=3y + z 
60 PRINT LET a=7 


2 Programa que calcule el volumen de una esfera, conocido su radio. 

3. Hacer un programa para calcular superficies de rectángulos, conocidos el largo y el an- 
cho. 

4. Programa que calcule la media aritmética de cinco números cualesquiera. 

5. Programa que te dé la longitud de una circunferencia y la superficie de su círculo, cono- 
cido el radio. 

6. Programa que calcule la diagonal y el volumen de un cubo, sabiendo su arista. 

7. Programa que calcule la diagonal, superficie total y volumen de un paralelepípedo, co- 
nocidas sus tres dimensiones. 

8. Dadas las dos bases y la altura de un trapecio rectángulo, hacer el programa que deter- 
mine su área y el lado que falta. 
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9. Cierta moqueta está a 72 pesetas/m”. Realizar el programa que dé el coste de la moqueta 
de una habitación rectangular cuyas dimensiones le debes dar al micro en cm. Hay un descuento 
del 12% por pronto pago, que también deberá aparecer en pantalla. 

10. El ordenador pide los datos del D.N.I. a un individuo, y los imprime sacándolos por 
pantalla. 
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TEMA 3 
PRIMERAS OPERACIONES Y VISUALIZACIÓN 


E ,, 
CORREO CERTIFICA 
es (SELLO) 
E. ME Romero Sevilla 
Pliza de la Libertad 1. 7?-C 
ESOO - MADEIO 
. , 


PROGRAMA N.”9. 


NOTACION DE NUMEROS 


Han de observarse las siguientes normas: 

— En los números decimales se utilizarán el (.) en vez de la coma. 

— Si delante del (.) está el cero, éste se puede suprimir. Ej.: 0.25 =.25 
— Notación científica en BASIC 


NUMERO NOTACION CIENTIFICA BASIC 
300000000 3.108 3E8 
0.004 4.10? 4E-3 


Es decir, el número que sigue a la E es el exponente del 10. 
Delante de E debe aparecer siempre un número, aunque sea el 1. Ej.: 10!* debe escribirse 
1E15 (E15 daría error). 
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El número que sigue a la E ha de ser entero (no decimal), y con signo, aunque si es positivo se 
suprime. 
— Los extremos entre los que pueden trabajar los micros generalmente son: 


— Siuna variable sabemos que sólo va a utilizar números enteros, podremos poner a conti- 
nuación del nombre de la variable el símbolo % (Ej. INPUT r%), pues de esta forma el micro no 
utilizará tanta memoria. Pero si hacemos esto, los extremos se reducen al intervalo 


"ALTOS cocción 32767 


OPERACIONES Y SU JERARQUIA 


Al igual que una buena calculadora (no programable) los micros pueden hacer las siguientes 
Operaciones, tanto con números como con variables: 

— suma + 

— resta - 

— producto x* 

— cociente / 

— potencia f (compatibles »:*) 

— raíz cuadrada SQR (recuerda que cualquier raíz es una potencia. Ej.: SOR(4)=41.5 ) 

— exponenciación EXP 


q RA la base es el número e 
— logaritmación LN 


La ventaja del ordenador sobre una calculadora es que puede hacer cálculos de formaitera- 
tiva (repeticiones sucesivas), hasta llegar a un resultado. 
Vamos a ver cómo trabaja el micro en el caso siguiente: 


nl. LET x=2+3x5+312 
n.. PRINT x 


Cuando corras el programa, se verá en TV el valor 26. El micro ha efectuado las siguientes 
Operaciones: 

— la potencia 2+3x5+9 

— el producto 2+15+9 

— la suma =26 

De manera que la jerarquía es la siguiente: 

1. Paréntesis, teniendo preferencia los interiores. 

2. Potencias. 

3. Productos y cocientes. 

4, Sumas y restas. 

Si hacemos ahora: 


nl. LET x=((2+3)*5+3)12 
nl. PRINT x 
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el orden que sigue el micro es 


— paréntesis interno (5x5+3)12 
— producto (25+3)12 


producto  (25+3)12 


— paréntesis externo 
p ( suma (28)12 


— potencia 2812 = 784 


Veamos algunos ejemplos para que practiques: 


20+60/2+4 Resultado: 54 
(20+60)/2+4 44 
20+60/(2+4) 30 
(20+60)/(2+4) 13.33... 


Obsevación: Con respecto a las potencias AB hay que tener en cuenta: 
AB se puede realizar: 

— si A 20, para todo valor numérico de B, 

— si A < 0, sólo para valores enteros de B. 

SIA < 0 y Bes fraccionario, el micro no efectúa la potencia, y saca mensaje de error, aunque 
fuera una operación correcta bajo el punto de vista aritmético. Así, 


(-8)13=-512 
(-8)1(-3)=-0.00195, aunque este valor lo sacará por TV en la forma -1.95E-3 
(-8)1(-3) que equivale a /-8 = -2 no lo efectuará el ordenador. 
El Spectrum no efectúa ninguna potencia de base negativa (para el primer caso, deberías po- 
ner (-8)*(-8)*(-8), y lo mismo para variables. 


CADENAS 


Es un conjunto formado por caracteres cualesquiera y que deben ir entre comillas, como por 
ejemplo: 


“28040-MADRID” 
Si quieres asignar una cadena a una variable, ésta debe ser alfanumérica, y así pondríamos: 
nl. LET x $= “28040-MADRID” 


Observaciones 


— El número de caracteres de una cadena no puede ser superior a 255. 

— Losespacios en blanco han de considerarse como un carácter más. Así, xS tiene 12 carac- 
teres. 

— Se pueden «sumar» cadenas, entendiendo que esta suma es una yuxtaposición. Así: 


“Buenas tardes” + ”,” + “ordenador” 
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es Igual a: 
“Buenas tardes, ordenador” 


En el capítulo VIII veremos un amplio tratamiento de estas variables. 
— No poseen valor numérico desde el punto de vista aritmético: 


“1984” + 1984 


USO DEL (;) Y DE (,) EN LA INSTRUCCION PRINT 


Según el tipo de micro, a efectos de impresión, la pantalla queda dividida en un mayor o me- 
nor número de filas y columnas invisibles. Por ejemplo, en el Spectrum hay 32 columnas, nume- 
radas de la O a la 31 y, 22 filas, numerada de la O a la 21. 


SPECTRUM COMMODORE 64 
NUMERACION DE 
MUMERACION FILAS Y ' COLUMNAS 


DE 
FILAS AS COLUMNAS 
j Ú 


Cada carácter impreso en pantalla ocupa la intersección de una fila y una columna. 
Por otra parte, la pantalla se puede considerar dividida en «zonas» verticales, que pueden ser 
2,36 4 dependiendo del micro: 


SPECTRUM 


NUMERACION DE COLUMNAS COMMODORE 64 
o 31 NUMERACION DE COLUMNAS 
a 


II 


Los PC presentan 24 filas por 80 columnas dividiéndose en 5 zonas. 
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El (;) lo que hace es imprimir a continuación de lo que tenga impreso antes. 
La (,) imprime en la siguiente «zona» de TV el siguiente carácter aimprimir. Te aconsejamos 
que introduzcas los siguientes ejemplos en tu micro, para que veas sus peculiaridades: 


Ej. 1:10 PRINT 1;2; 
20 PRINT 3;4 
30 PRINT 5,6;7, 
40 PRINT8 
50 PRINT 
60 PRINT 9,,10;11; 
70 PRINT 
80 PRINT 12 


Ej. 2:10 PRINT 1; “A”; 
20 PRINT 3; “BC” 
30 PRINT -5, “DEF 1”; 7, 
40 PRINT 8 
50 PRINT 
60 PRINT 9,,“GHIJK”,-11; 
70 PRINT 
80 PRINT 12 


La instrucción PRINT (sin más) puede hacer: 

— Dejar una línea completa en blanco, como las líneas 50 de los ejemplos. 

— Detrás de un (;) o (,) deja en blanco el resto de la línea correspondiente, comolas líneas 70 
de los ejemplos. 


Observaciones 


1. Por muchos (;) que se ponga, no se va air distanciando uno a uno el carácter aimprimir. 

2. Sise ponen varias (,), por cada una salta a la siguiente zona de TV (fíjate en las líneas 60). 

3. Algunos micros te dejan un espacio delante delos números para el signo; si es positivo no 
aparece, y si es negativo ocupa este espacio. 


PRESENTACION DE TITULOS Y RESULTADOS. EL USO DE LAS * 


En la ejecución de un programa interesa que aparezca el nombre de los datos a introducir, y 
que los resultados de la ejecución del mismo tengan una expresión literal que los identifique. Es- 
to se tiene en cuenta en el programa siguiente: 


10 REM Cálculo de volúmenes 

15 PRINT “Te voy a calcular el volumen de una caja” 
20 PRINT 

25 PRINT “largo? ”; 

30 INPUT | 

35 PRINT | 

40 PRINT “fondo? ”; 
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45 INPUT f 

50 PRINTf 

55 PRINT “alto? ”; 

60 INPUT a 

65 PRINT a 

70 PRINT 

75 PRINT “Volumen= ”;l*fx*a 


El interrogante de las líneas 25,40 y 55 es conveniente ponerlo en el Spectrum (ya que en re- 
alidad se trata de una pregunta que te hace el micro), pero en otros ordenadores resultaría inne- 
cesario porque sale en pantalla automáticamente con la instrucción INPUT. 

Se puede fusionar la estructura de las líneas 25 y 30 en una sola línea de programa: 


25 INPUT “largo? ”;! INPUT fusionado — 
Así las líneas 30 y 35 son innecesarias. 


Observciones 


— Con el INPUT fusionado, la pregunta aparece en una parte reservada de la pantalla, que 
se encuentra por debajo de la zona operativa en el Spectrum. 

— Un INPUT fusionado admite la introducción de varios datos a sus variables correspon- 
dientes, siempre que éstas estén separadas por (.). 


Ej.: n.l. INPUT “Medidas de la caja? ”;l,fa 


También n.!. INPUT “Nombre y edad? ”;n $,e 


LA INSTRUCCION PRINT TAB 
Tiene el formato 
n.!. PRINT TAB (argumento); (escritura) 


donde (argumento) puede ser una constante, una variable conocida o una operación con varia- 
bles; (escritura) es lo que se desea imprimir. 

El argumento especifica la columna donde comienza la impresión. Van numeradas dela 0 a 
la 31, en el Spectrum. 


Observaciones 


— Si el argumento fuese un número decimal, toma el entero más próximo. 

— Si el argumento fuese mayor que 31, le resta esta cantidad tantas veces como sea necesa- 
rio para que entre en pantalla. 

— Dentro de una misma línea se pueden poner varios TAB, pero cuidando que las partes a 
imprimir no se superpongan, pues de lo contrario la impresión pasaría a la línea siguiente. 

— Lo mismo sucedería si hay dos TAB en la misma línea de programa, pero el argumento 
(columna) del segundo es menor que el del primero. 
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— Algunos micros, al imprimir datos numéricos, reserva el primer espacio de escritura para 
el signo, omitiéndolo si fuese positivo. 
Ejemplo: este programa dibuja una serie de 20 asteriscos en diagonal. 


10 FOR x=1 O 20 
20 — PRINT TAB(x);%*"” 
30 NEXT x 


LA INSTRUCCION PRINT AT 
El formato es: 
n.l. PRINT AT f,c; (expresión) 


donde los parámetros f,c se refieren ala fila y columna, respectivamente, pudiendo ser: constan- 
tes, variables o fórmulas. La (expresión) puede ser: 

— cadena, encerrada entre comillas, 

— variable alfanumérica, 

— variable numérica, u operaciones entre éstas, 

— números, sin comillas, u Operaciones con números. 

Hay ordenadores queno utilizan esta instrucción. A cambio, tienen otra que posiciona el cur- 
soren el origen (extremo superiorizquierdo dela pantalla), y mediante la repetición de tantas lín- 
eas en blanco como filas se quieran bajar y la sentencia TAB se posiciona el cursor en la parte a 
imprimir. 

Para PC, ver apéndice. 


Observaciones 


— Los valores de los parámetros debieran, en principio, estar comprendidos entre 


0<f< 21 0<c< 31 


Pero sucede lo siguiente en el Spectrum. 

Si c fuese negativo, hace un efecto de reflexión sobre el borde izquierdo, y seimprime. Análo- 
gamente, sifes negativo, la reflexión se hacesobre el borde superior. Sinembargo, no existe refle- 
xión a la derecha, ni en la parte inferior de la pantalla. 

— Si los valores f, c no fuesen enteros, el ordenador los redondea para imprimir. 

— Ten siempre presente que el origen de estos parámetros está en el ángulo superior iz- 
quierdo de la pantalla. Las filas se enumeran hacia abajo, y las columnas hacia la derecha. 

Veamos un primer ejemplo: 


10 REM PRACTICA CON EL PRINT AT 


20 LET a$ "HOY ES ":LET a=14 
30 PRINT AT 0,0;a$ ¡AT 3,7;a;AT 6,12;” ABRIL”; AT 11,22;1985 
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TEMA 4 
DIAGRAMAS DE FLUJO 


e, 
» 


e i eS 


¿SIGUE ss E 


. e 
AS eS 


“no 


PROGRAMA N. 7. 


DIAGRAMAS DE FLUJO U ORGANIGRAMAS 


Son la presentación esquemática de cualquier manifestación o hecho desarrollado paso a pa- 
so y en orden mediante la utilización de símbolos. 

Los utilizamos en Informática, pues nos pueden servir para la elaboración de programas. 
Hoy en día, con los lenguajes de alto nivel estructurados apenas se utiliza; sin embargo, para el 
principiante, o bien si el programa resulta bastante complicado, nos puede ser de utilidad y ayu- 
da. 
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Los símbolos más utilizados son: 


|] 
O 
La 
| 
<> 
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SIGNIFICADO 


Comienzo, fin, interrupción. 


Proceso, tratamiento. 


Continuación a otra parte del organigrama. 


Impresión (TV o papel). 


Entrada de datos. 


Decisión lógica. 


Imaginemos que queremos ver en TV una tabla de números y sus cuadrados correspondien- 
tes, hasta un número determinado, N. El organigrama asociado es: 


Comienzo 


Como 2.” ejemplo, ver el organigrama al principio del capítulo. 


PROGRAMAS 


Realiza los diagramas de flujo asociados a las siguientes situaciones: 

1. Urge que se avise a Juan esta mañana. Le vas a llamar por teléfono cada cinco minutos 
hasta que te conteste; si llegan las doce, lo dejas. Cuando conteste, le dices que anule el pedido. 

2. Juani, vete a la tienda, y si la ternera está a menos de 1.000 ptas./Kg. te traes dos kilos; si 
no, trae un kilo de rape, si estuviera fresco. De lo contrario trae dos bolsas de garbanzos. Y no te 
olvides de traer el pan y el periódico. 

A3. Voyamirar el aceite de mi coche; si llega a la marca me voy de viaje; si no, iré a por una 
lata de un litro a la gasolinera, se lo echaré y volveré a mirar el nivel. 
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4. Intento pasar a la Universidad este año. Pero mañana voy a una entrevista, y si me sale el 
trabajo dejo de estudiar. Estoy repitiendo COU, y sólo me quedan las matemáticas y la filosofía. 
Ayer hice un examen de filosofía, y silo suspendo la dejo para PApUEnIDrE Silo apruebo, seguiré 
con las dos, a ver si las saco en junio. 

5. Quedan dos partidos de liga. El Barca tiene 25 puntos, el Madrid 24 y el Atletic 23. Ha- 
cer el organigrama de todos los posibles casos de puntuación final, sabiendo que se tienen que 
enfrentar en el último partido el Madrid y el Barcelona. 

6. Pedroestájugando alas siete y media con unos amigos. Organigrama del juego de Pedro. 

7. Vasajugar auna máquina tragaperras con 500 ptas. en monedas de 25. Organigrama del 
juego. 

8. Lo mismo que el anterior, pero suponiendo que tu objetivo consista en ganar 100 ptas. 

9. Unejecutivo va a la oficina andando si hace sol, y si llueve coge el coche. Trabaja toda la 
mañana, y come en la oficina, excepto los martes, que va a comer a casa de sus padres. Si hay tra- 
bajo atrasado se va otra vez a la oficina, y sino se va a hacer deporte (los L,X,V hace footing y los 
M,J, natación). Después va a casa a cenar y acostarse. Los fines de semana se va a la sierra. 
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TEMA 5 
TRANSFERENCIAS DE CONTROL 


A QQ _QrO0O 


DISRESTION ARITMETICA 


PRIMER TERMIMNO= -25 
RAZON= 
HMIMERO CE TERMINOS" E 


La prooarezion € 


iñ 
tí 


| 
H-J0 0nNÓ 
JErRon 


PROGRAMA N. 4, 


SENTENCIA GOTO 


50 


Posibilidades del 
GOTO 


NUMERO DE LINEA 
VARIABLE 


Si ponemos, en un programa, p. ej.: 


GOTO 250 


el ordenador, cuando llega a la línea 50 salta, sin más, a la 250. Tiene utilidad para que un con- 
junto de instrucciones no sean ejecutadas en ese momento. Si metemos el programa: 


10 
20 
30 
40 
50 
60 


REM volúmenes de cubos 

PRINT “volúmenes de cubos” 

INPUT “arista? ”;a 

PRINT “ARISTA=";a,“VOLUMEN=";a * a * a 
PRINT 

GOTO 30 


39 


cuando el ordenador llegue a la línea 60, mandará el control a la línea 30, y te pedirá una nueva 
arista y así sucesiva e indefinidamente. 

¿Cómo detendremos el proceso? 

Para ello los micros disponen de un comando que interrumpe la ejecución de un programaen 
marcha. Eslatecla BREAK, que, tras pulsarla, además de detener el programa, nos da el mensaje 
de interrupción, con la última línea ejecutada. 

En ordenadores compatibles, hay que pulsar simultáneamente las teclas CTRL y BREAK. 

En el C-64, la interrupción es con la tecla RUN/STOP. Si deseamos continuar con el pro- 
grama que se ha interrumpido (corregido o no), usaremos el comando CONT (continúa), y el or- 
denador proseguirá en la línea donde se detuvo. 

Comentario: Si alguna vez ves, en un listado, por ej.: 


500 GOTO 500 


como el programa no termina nunca, no sacará el mensaje de terminación, con lo que la presenta- 
ción en pantalla queda más «limpia». Para proseguir, con el BREAK. 
NOTA: En PC, el programa se detiene si le mandas a un n.* de línea no existente. 


SENTENCIA IF... THEN... 


Tiene el formato general IF (A) THEN (Z) donde (A) es una comparación (en el sentido 
igual, mayor o menor) entre variables y/o constantes, y (Z) es la instrucción o grupo de instruc- 
ciones a ejecutar. Pero sólo se ejecutarán si la condición (A) es cierta. Si nolo fuese, el ordenador 
pasa a ejecutar la siguiente línea del programa. 

Nota que (Z) puede ser cualquierinstrucción, de las ya vistas o de las que veremos. Ejemplos: 


n.l.. IF p=2 THEN GOTO 400 

nl. IFa > b+c THEN PRINT “valor=";a 

nl. 1Fz/3< = x-1 THEN LET x=9 

nl. IFE c$="s” THEN INPUT “altura? ”;h 

nl. IF i$="3" THEN CLS: GOTO 5 

nl. IFa=2 AND b=3 THEN a=b 

nl. lFa=2 OR b=3 THEN a=a+1 

nl. IF =2 AND (b=3 OR b=-3) THEN LET b=0 


Observaciones 


— Algunos micros tienen la sentencia complementaria ELSE, que opera de la siguiente 
forma: 


n.l. IF a>10 THEN GOTO 100 ELSE PRINT x+y 
Si se verifica la condición, el micro iría a la línea 100; y si no, imprime el valor x+y. 
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— Sienlacomparación (A) se utilizan combinaciones de operadores AND, OR debes agru- 
parlos con paréntesis siguiendo las reglas del álgebra de Boole. 

— Esimportante tener muy en cuenta que si no se verifica la condición (A), no se ejecutará 
ninguna de las instrucciones (Z). Así, en el ejemplo 5.”, no se ejecutaría el borrado de pantalla 
(CLS) ni la transferencia de control a la línea $. 

— La condición (A) puede ser simplemente una variable sin más. Entonces la condición es 
cierta si esta variable es distinta de 0. 


Ej.: n.l.. IF m THEN GOTO 5 


Utilizando NOT la condición es cierta si la variable es igual a 0. 


10 
20 


10 
20 


10 
20 


LET O0=0 


NO IMPRIME 
IF Q THEN PRINT “X” 


LE; 
IF O THEN PRINT “X” 


IMPRIME X 


LET O0=0 
IF NOT Q THEN PRINT “X” 


IMPRIME X 


OPERADORES LOGICOS 


Sirven para comparar constantes, variables y fórmulas. Su aplicación entre variables alfanu- 
méricas se verá en el Cap. VII. Son: 


OPERADOR SIGNIFICADO 


OR 0) 

AND y 

NOT no (no es cierto) 

=,<> igual, distinto a 

<, <= menor, menor o igual que 
> > 


= mayor, mayor o igual que 


PRIORIDAD 
NOT 

AND 

OR 
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Si usamos el operador OR relacionando dos premisas como por ej.: 
a=7 OR x>5 


basta que sea cierta una de las dos para que sea cierta la proposición total. 
En cambio, usando el AND, como por ej.: 


a=7 AND x>5 


solamente será válida la proposición total si se verifican las dos premisas. 
El operador NOT cambia radicalmente la comparación de manera quese obtiene la comple- 
mentaria. Así: 


NOT q<5 


es equivalente a q >= 5. 
Imagina que hay que comprobar si el valor de la variable h está en cualquiera delos dos inter- 
valos que se señalan en la figura 


-5 =2 7 11 


la comparación sería: 
(h >=-5 AND h <=-2) OR (h >=7 AND h <=11) 
Como se ha alterado la prioridad AND/OR, es preciso utilizar paréntesis. 


NOT (A=B) <==> A<>B 
NOT (A<>B) <==> A=B 
NOT (A AND B) <==>NOT A OR NOT B 
NOT (A OR B) <==>NOT A AND NOT B 


CONTADORES. EL DATO CLAVE 


Un contador típico es de la forma LET n=n+1 (se puede usar cualquier variable). 

Esta expresión no es correcta desde el punto de vista algebraico, pero sí en programación 

Cuando el micro llega a esta orden, simplemente aumenta en 1 el valor que tenga la variable n 
en ese momento. Esta instrucción va a ser repetitiva, en tanto se cumpla una determinada condi- 
ción. Si no, se sale del bucle. 

Por ejemplo, para imprimir los diez primeros números naturales, se haría: 


5 LETn=0 
10 PRINT “10 PRIMEROS NUMEROS” 
15 LET n=n+1 
20 IFn > 10 THEN GOTO 40 
25 PRINTn 
30 GOTO 15 
40 PRINT “ADIOS” 


INICIO 


10 PRIMEROS 
NUMEROS 


En este ejemplo el contador (variable n) salta de uno en uno, pero no necesariamente tiene 
que ser así. En ocasiones puede interesar saltos diferentes, como: 


nl. LETn=n-5 
nl LETp=p+2.5 


Imagina un programa en el que el micro nos va pidiendo datos continuamente, para proce- 
sarlos, mediante INPUT. ¿Qué manera tiene el micro de saber que la lista de datos ha teminado? 

Pues utilizando un valor o cadena (según el caso) que se le introduce como dato clave que 
debe ser conocido por el operador. 

Si intentamos que el micro cuente el número de contestaciones afirmativas, negativas y abs- 
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tenciones a una pregunta de una encuesta, asociando al «Sl» el 1, al «NO» el 2 y ala abstención el 
0, el programa siguiente lo realiza: 


5 LET x=0:LET Y=0 Z=0 
10 PRINT “Recuento de votos” 
20 INPUT “Dato? ”;a 
30 IF a=- 5 THEN GOTO 90 
40 IF a=1 THEN LET x=x+1 
50 IF a=2 THEN LET y=y+1 
60 IF a=0 THEN LET z=z+1 
70 REM SI a FUESE OTRO VALOR, QUEDA IGNORADO ! 
80 GOTO 20 
90 PRINT “De un total de ";x+y+2;” votos” 
100 PRINT “afirmativos= ”;x 
110 PRINT “negativos =";y 
120 PRINT “abstenciones=";z 


El que introduzca los datos deberá tener en cuenta que en este caso el dato clave es -5. 

El dato clave puede usarse con otra vertiente: si sele plantean al usuario varias opciones aele- 
gir, se decide por una de ellas asignándole un número previmente acordado. 

Si por ej., el ordenador te propone elegir un juego, podría preguntar la opción del siguiente 
modo: 


n.l. PRINT “Quieres jugar a barcos (1) o a marcianos (2) ?” 
n.!. INPUT c 

nl.  IFc=1 THEN ... 

nl.  IFc=2 THEN ... 


El 1 oel 2 hacen de dato clave para la opción elegida. Análogamente, se usa, para volver a eje- 
cutar un programa, la «s» o la «n», para repetirlo o no, respectivamente: 


n.l. INPUT “Otra vez? (s/n) ”; a $ 
nl. IFa$="s” THEN RUN 

nl. IFa$="n” THEN STOP 
GOTO 


n.l. 


PROGRAMAS 


1. Realiza los programas que impriman en columna los números pares y positivos, para 
cada uno de los casos siguientes: 

a) Sin limitación de números a imprimir. 

6) Dez2a.222. 

c) De100aotro valor que el micro conocerá mediante INPUT (este valor podrá ser mayor 
o menor que 100). 

2. Programa quesaquelos múltiplos de 5, a partir del 30, con cada uno de los siguientes for- 
matos: 

a) En línea continua, separados por un guión. 

b) Por «zonas» de pantalla. 
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3. Impresión en pantalla de una progresión aritmética indefinida, cuyo primer término y 
razón darás con INPUT al micro. 

4. Lo mismo que el anterior, pero el ordenador preguntará además el número de términos 
a imprimir. 

5. Lo mismo que 3 y 4, pero la sucesión deberá ser geométrica. 

6. Impresión, en la primera «zona» delos veinte primeros términos de una progresión arit- 
mética cualquiera, y enla segunda «zona», a elección del usuario, o bien el cuadrado, o bien la raíz 
de los términos. 

7. Cierta moqueta está a 237 ptas./m?. Se trata de averiguar el coste de enmoquetar una ha- 
bitación rectangular cuyas dimensiones se introducen al micro en cm. Si el coste supera las 2.000 
ptas., hay un descuento del 12%. Los gastos de transporte importan 1.000 ptas., y lainstalación te 
la cobran a 50 ptas./m?. | 

8. Se pretende contar y determinar el porcentaje de un determinado reemplazo militar en 
el que los soldados tengan una talla inferior a 1,60 y su peso sea superior a 70 kg. Se deben intro- 
ducir los datos de cada soldado mediante INPUT. Se llamará la atención al operador si seintro- 
duce un dato no posible. 

9. Introducidos 10 números mediante INPUT, el micro determina y saca en TV el menor y 
el mayor de ellos. Mejorarlo, no para 10, sino para un número indeterminado. 

10. Un teatro dispone de 100 butacas de patio. Se representa «Romeo y Julieta» los días 
15, 16 y 17 del mes. La taquilla está informatizada y funciona de la siguiente manera: 

Tras pulsar una determinada tecla, te dice cuántas entradas quedan en ese momento para 
cada día. Solicitas las que quieres, con su fecha, y te dice el importe. Asísucesivamente hasta ago- 
tar las entradas, saliendo entonces el cartel de«NO HA Y BILLETES». El precio de cada locali- 
dad son 2.000 ptas. 

11. Programa que te permita ver en TV el presente, pretérito y futuro de un verbo regular 
de la primera declinación, cuando le introduzcas la raíz del verbo a conjugar y el tiempo deseado. 
Deben figurar los pronombres. 

12. En cierta estación de esqui la señorita de la taquilla debe pasar por el teclado las peti- 
ciones para que salga impreso en el vale de entrada en pistas, la situación personal de cada es- 
quiador. Las condiciones que figuran en el tablón son: 


— una persona «DIA» completo 1.200 ptas. 

— una persona «MEDIO» día 700 ptas. 

— una persona «BONO» temporada 35.000 ptas. 

— una persona «CURSILLO» semana 6.000 ptas. 

— grupo de 4 o más, descuento del 10% en todos los casos. 

Realizar el programa que saque en TV la situación de cada solicitud. 

13. Unavezqueel ordenador sepa la aceleración y velocidad inicial de un movimiento rec- 
tilíneo, imprime en la primera «zona» el tiempo que transcurre (de seg.en seg.), y enla segunda el 
espacio recorrido (la aceleración puede ser negativa). 

14. Enun movimiento circular uniforme se le introduce al micro la velocidad angular. Se 
trata de saber el ángulo barrido, de seg. en seg., en radianes y en grados. 


45 


TEMA 6 
ITERACCION MEDIANTE BUCLES 


CTITASRAMA TEMPERATURAS =EMANA 


EIA AA 
A 

:. — MINI 

— MIN 1 

+ ER AICA 
= MIA >. 
EE AA 


PROGRAMA N.” 19. 
SENTENCIA FOR/NEXT 
Sirve para que el micro repita un número determinado de veces una serie de instrucciones, a 


las que llamaremos «dominio» del bucle. 
Su formato general es: 


variable de control 
límite inicial 
Po límite final 


error ron rr rr rro rro rss rr 0... 


errors raro rra 
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Su significado es: FOR (desde), TO (hasta), NEXT (siguiente) 

Hasta aquí, para repetir la ejecución de unas instruccions se habían utilizado contadores y 
sentencias IF...THEN, en combinación. Pues bien, ahora, sin olvidarnos de ellas, empezaremosa 
utilizar esta nueva, que tiene, por así decirlo, mayor potencia. 

Para comparar, veamos un programa que nos saca en TV los días del mes de mayo: 


4% 


STOP 


10 FOR n=1 TO 30 10 LET n=0 

20 PRINT n 20 LET n=n+1 

30 NEXT n 30 PRINT n 

40 STOP 40 IFn < = 30 THEN GOTO 20 
50 STOP 


La sentencia FOR inicializa la variable de control al límite inicial. Se ejecuta una vez el domi- 
nio, y llegamos a la sentencia NEXT, que realiza dos tareas: 

— Aumenta en 1 la variable de control. 

— Compara si se ha sobrepasado el límite final. 

Si no se ha sobrepasado, vuelve a ejecutar el dominio desde su primera línea. 

En caso contrario, se ha terminado de realizar el bucle y el programa continúa en la línea si- 
guiente al NEXT. Los límites, tanto inicial como final, pueden ser: 

— constantes 

— variables 

— fórmulas 

Ejemplos: 


n.l.. FOR h=4 TO z 
n.l. FOR t=a-b TO 5 x* a+3- b/2 


Una vez más, te recordamos que el ordenador no puede ejecutar ninguna instrucción sin co- 
nocer el valor de las variables que entren en ella. 
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STEP: PASO POSITIVO, NEGATIVO Y DECIMAL 


Hasta aquí hemos visto que la variable del bucle aumenta de uno en uno, pero hay ocasiones 
que interesa que aumente o disminuya una cantidad determinada. Para ello usamos la intrucción 
STEP (paso), a continuación del TO del bucle, con la cantidad requerida. 

Advertencia: Si usas un paso negativo, el límite final ha de ser inferior al inicial. 


STEP 1 NO ES NECESARIO PONERLO 


10 FOR X=15 TO 1 STEP -3 
20 PRINT X 
30 NEXT X 


(VISUALIZACION) 
15 
12 

9 

6 

3 


10 FOR M=.75 TO 4 STEP .75 
20 PRINT M 
30 NEXT M 


(VISUALIZACION) 
0.75 

1.5 

2.25 

3 

3.75 


Observaciones 


— Lahabilidad del programador consiste en que la variable de control pueda ser usada den- 
tro del dominio del bucle. Pero usarla no supone modificar su valor, lo cual puede acarrear pro- 
blemas. 

— Algunos micros no necesitan poner la variable del bucle en NEXT. 

— Un bucle sencillo lo puedes poner en una sola línea de programa utilizando (:) para sepa- 
rar las instrucciones. 

Vamos a ver lo fácil que es hacer la suma: 


utilizando el siguiente bucle: 


10 LET s=0:REM inicializa la suma a cero 

20 FOR i¡=1 TO 100 

30 LET s=s +1/i : REM va sumando cada fracción. 
40 NEXT ¡ 

50 PRINT “La suma es: ”;s 
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La razón de la línea 20 es que los denominadores van de uno en uno, y del 1 al 100. Entonces 
lo más lógico es usar un bucle cuya variable de control varíe de esta forma. La 30 va acumulando 
en la variable s la suma de las sucesivas fracciones. Si la 50 perteneciese al dominio del bucle, te 
imprimiría cada suma parcial; como aquí está después del bucle, sólo te imprime la suma final. 

En el siguiente programa pretendemos que el micro imprima los múltiplos de un número 
dado con INPUT, y los cuadrados respectivos que no sobrepasen el número 1000: 


10 INPUT “número? ”;n 

20 FOR i=n TO 1000 STEP n 

30 IF 112 > 1000 THEN GOTO 60 

40 PRINT 1,112 

50 NEXT i 

60 PRINT “Ejercicio terminado”: STOP 


PROPAGACION DE 
ERRORES 


10 FOR N=0 TO 20 STEP P 
20 IFN=INT N THEN PRINT N 
30 NEXT N 


PARA P=0.1, 0.2 Y OTROS 
ESTE PROGRAMA NO FUNCIONA 


ES DEBIDO AL ERROR COMETIDO 
EN LA CODIFICACION BINARIA 
DE UN NUMERO DECIMAL 


BUCLES ATIPICOS 


Son bucles que, por no ser operativos, debes procurar no ponerlos nunca en un programa. 
Pueden tener las formas siguientes, entre otras: 


n.l. FOR i=a TO a 
n.l. PRINT ¡+10 
nl. NEXT i 


Carece de sentido que los valores inicial y final de la variable de control sean los mismos. ¿Qué 
haría el ordenador en este caso? 


n.l. LET p=0 

n.!. FOR i=I TO 10 STEP p 
ni! PRINTi 

nl. NEXT i¡ 
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Si el paso es nulo, el micro no incrementa el valor inicial de la variable control, por lo que el bucle 
no termina nunca. 


n.l. FORi=10 TO 5 STEP p 
n.l. LET x= x+i 
nl. NEXT ¡ 


Asegúrate que el valor de p sea negativo, pues de lo contrario no te realizará el bucle. 
Hay un bucle atípico, que llamaremos «bucle en vacío» que sí resulta útil: 


n.l. FOR h=1 TO 200 : NEXT h 
Al no existir aquí dominio del bucle, el ordenador va del FOR al NEXT 200 veces, sin hacer 
nada, lo que supone un tiempo de espera, que se usa para que el desarrollo de un programa sea 
más lento. Se puede regular el tiempo variando el valor final de la variable de control. 
REGLAS A OBSERVAR EN BUCLES 
1. SALIDAS 

Se puede salir de un bucle antes de terminado, mediante sentencias adecuadas. La típica es: 
IF... THEN (A) 
(A) PUEDE SER: 
GOTO n.l. (sin vuelta) 


GOSUB n.l. (con vuelta) 


(aunque el bucle quede sin terminar no pasa nada) 


2. VUELTA AL BUCLE 


Una vez que has salido del bucle, se puede volver: 

— al FOR, con lo que se vuelve a iniciar el bucle, 

— al dominio, con lo que se seguirá ejecutando el bucle donde se dejó, 

— al NEXT, con lo que se incrementa la variable de control en el PASO correspondiente, y 
el bucle continúa por el FOR. 


3. ENTRADAS 


La forma de ejecutar el dominio es comenzando por la sentencia FOR, que inicializa el bucle, 
de manera que queda prohibido transferir el control de un programa al dominio de un bucle sin 
pasar por esta sentencia. 

Si lo hicieras, cuando el micro llegase al NEXT, te daría el mensaje de error: 


NEXT WITHOUT FOR (NEXT sin FOR) 
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Por ejemplo, es válido el siguiente programa: 


10 LET h=0 : LET d=5 
20 FOR x=1 TO 10 
30  LETh=2*h+d 


40 — PRINT x,h 
50  IFh > 50 THEN GOTO 70 
60 NEXT x 


70 PRINT “FIN DEL EJERCICIO” 
Pero no sería válido este otro: 


10 REM aquí hay dos errores ! 


nl. LET m=m>+1 


n.!. lFm > 10 THEN GOTO 70 


nl. LETj=A+B 
70  LETA=A +1 


nl. NEXT j 


BUCLES ANIDADOS 


Entre las sentencias que constituyen el dominio de un bucle se puede encontrar la propia 
FOR ... NEXT pero con variable de control distinta. Esto constituye un «bucle interno». 


EL DOMINIO DE UN BUCLE 
PUEDE SER OTRO BUCLE! 


Como el bucle interno se encuentra en el dominio del externo o principal, se ejecuta íntegra- 
mente por cada paso del bucle externo. De aquí que estos bucles tengan una regla adicional: 

El primer bucle que se abre (con el FOR) es el último que se cierra (con el NEXT). 

Aunque se requiere cierta práctica con los bucles simples para tener soltura con los anida- 
dos, verás que éstos son de grandísima utilidad. 

El siguiente programa nos permite ver en pantalla las tablas de multiplicar del 5 y del 6: 


10 FORi=5TO 6 

20  PRINT “TABLA DEL ”;i 
30  FOR¡=ITO 10 

40 PRINTi; “xj: =="; ix 
50 NEXT j 

60 NEXT ii 
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Corre este programa. ¿Te has fijado cómo trabaja? Por cada valor de la variable i (primer fac- 
tor), se ejecuta el bucle entero de la j (segundo factor). 

Observa la diferencia operativa de las líneas 20 y 40: mientras que la 20 se ejecuta solamente 
dos veces, la 40 lo hace 2 x 10 = 20 veces, por estar en el bucle interno. 


BUCLE ANIDADO CORRECTO BUCLE ANIDADO INCORRECTO 


Otro ejemplo de bucle anidado serviría para hacer la suma siguiente: 


1 2 3 10 
1 ez MA iaa O IAN 
10 REM suma con bucle anidado 
20 LET s=0:REM inicializa la suma a cero 
30 FOR n=1 TO 10 
40 LET f=0:REM inicializa cada denominador 
50 FOR d=1 TO n+1 
60 LET f=f+d 


70 NEXT d 
80 LET s=s+n/f:REM suma el quebrado 
90 NEXT n 


100 PRINT “SUMA=";S 

Observa la diferencia entre las líneas 20 y 40: el LET de la 20, como s tiene la suma total, se 
pone al principio (fuera de todo bucle); pero el de la 40, como f representa la suma de cada deno- 
minador, es preciso inicializarlo a cero para cada fracción, por lo que lo metemos en el bucle 
principal. 
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EL STOP COMO SENTENCIA Y COMO COMANDO. END 


EISTOP como sentencia actúa como la misma palabra indica: el programa se detiene cuando 
llega a esta orden. 

El STOP no significa término de la ejecución de un programa, sino interrupción indefinida. 
Cuando quieras que prosiga el programa, usas el comando CONT. 

Como sentencia STOP tiene utilidad para fraccionar la salida de datos, cuando sean muchos 
y no fuera suficiente con una pantalla (esto no es aplicable al Spectrum, ya que cuando setermina 
la pantalla, sale la pregunta «SCROLL »?). Pulsando entonces cualquier tecla, se ve la siguiente 
pantalla de datos. 

Como comando, STOP se utiliza cuando el ordenador está esperando un dato y quieres dete- 
ner el programa en ese momento. En esta situación no tiene efecto la tecla BREAK. 

Hay ordenadores que utilizan como sentencia de final de programa END. 


PROGRAMAS 


1. ¿Qué imprimirían en TV los siguientes programas? 
a) 2 FOR x=1 TO 10 : PRINT “x= ";x+3 : NEXT x 


b) 5 LETa-2 
10 FOR b=1TO 5 
15  LETa=a+tb 
20  PRINTa 
25 NEXT b 


C) 10 LET y=20 : FOR 2-1 TO 10 : LET y=y + z : NEXT z : PRINT 


d) 40 LETn=2 
45 FOR x=1TO n : PRINT “.”;: NEXT x 
50 PRINT: LET n=n +2 
55 IF n—10 THEN STOP 
60 GOTO 45 


e) 20 FOR h=1 TO 10 STEP 3 
25 PRINT h12,h1.5 
30 NEXT h: PRINT h 


f) 50 FOR k=1 TO 10 STEP .5 
55 PRINT k,k -k12 
60 NEXT k 


g) 35 FOR x=100 TO 1 STEP -3 
45 IF x/2 -10 > 30 THEN PRINT x 
50 NEXT x 
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2. Utilizando un bucle, haz que se imprima en TV cinco veces la frase «HOLA AMIGO, 
HAGAMOS CAMINO», de forma que estén: 

a) seguidas, 

b) una en cada fila, 

c) igual que en b) pero con una línea en blanco entre cada dos frases. 

3. Losprogramas 4, 6,13 y 14 del capítulo anterior son susceptibles de mejora mediante el 
FOR/NEXT. Intentarlo. 

4. Elordenadorte pregunta cuántos alumnos hay en tu clase. Despuéste pedirálasnotas de 
todos para una asignatura. Mediante un bucle, programa el cálculo de la nota media de la clase. 

5. Calcular, mediante bucles, los valores de las siguientes expresiones: 


a) Sta tar totor 

) FAA 
e lee ke ces 
Y FRA 00 


6. Cálculo del factorial de un número natural, menor que 33, que has de dar al micro con 
INPUT. 
7. El desarrollo: 


l 1 1 


++ + iS 


1! 21 


nos proporcionará una aproximación del número e (2,718281...), tanto mejor cuanto mayor sea 
N. Verifícalo con el micro. 
8. Basándote en el programa 6, determina los siguientes números combinatorios: 


a) (5) b) (15) c) (5) , ambos dados con INPUT. 


9. Unsenor decide dejar de fumar e invertir las 20.000 ptas. anuales que gastaba en tabaco 
en una libreta bancaria. Si el banco le da el 5% de interés anual, haz un programa que, en función 
del número de años dado con INPUT, permita conocer la cantidad que le devolvería el banco al 
cabo de ese tiempo. Hazlo para cada uno de los siguientes casos: 

a) Si sólo deja de fumar el primer año. 

b) Si deja de fumar para siempre. 

10. Utilizando cualquier carácter que elijas del teclado, programa el dibujo de una barra 
horizontal de la longitud deseada por el operador: 

11. Análogamente al anterior, programa el dibujo de una cruz centrada en la pantalla. 


0 


12. El cálculo del seno de un ángulo se puede realizar por el desarrollo de Mac Laurin: 


A Xy Ñ Xy x en radianes 
a A 
Este cálculo tiene menos error cuantos más términos cojas. Se da con INPUT el número de 
términos a procesar y el ordenador realiza la suma. 
13. Análogamente al anterior, se tiene: 


e e 
3 xo EX For E 7 


a) log (1+x)=x- $ e + 


b) (LExp=1+ (1) x + () ec () EE (297 
é 3 n -1 


14. Enla Edad Media las vacas costaban cuatro doblones, los cerdos dos y las ovejas a 1/3 
de doblón. Si un campesino compró 100 animales, con 100 doblones, haz un programa que ave- 
rigúe cuántos compró de cada especie, si compró uno de cada al menos (hay tres posibles solu- 
ciones). 

15. Descomponer el número 20 en dos sumandos tales que la suma de siete veces el cua- 
drado del primero más tres veces el cuadrado del segundo de un valor mínimo. 

16. Siendo la suma de los catetos de un triángulo rectángulo 10 cm., hallar el de área má- 
xima. 

17. Unjardinero tiene que construir un jardín en forma de sector circular, que ha de tener 
un perímetro de 150 m. ¿Qué radio y qué ángulo debe tener para que su área sea máxima? 

18. Dibujar en pantalla tantos barrotes horizontales como quiera el operador, y de la lon- 
guitud que desee. Considerar limitaciones según el micro. 


19. Setrata de hacer un diagrama de barras horizontales que indique la temperatura media 
diaria de una determinada semana. El micro te pregunta las sucesivas temperaturas, y por cada 
una de ellas te dibujará una barra de longuitud proporcional, y a la derecha de la misma indicará 
la temperatura correspondiente. 

20. Se pretende conocer los valores de las letras x, y, z que cumplen 


xXx + yy y>+ z = 14 
E E S.A + 
+ “E s 
E O AE + 
Il Il Il 
8 0 -8 


Estos valoresson números naturales, de O a 9, pudiéndose repetir. El micro los irá probando 
mediante los bucles anidados. 

21. Un barco B se halla a 375 km. al este de otro barco A. Si B navega hacia el oeste a 20 
km/h., y A hacia el sur a 15 km/h, haz el programa que te permita saber, de minuto en minuto, la 
distancia que los separa. 
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22. Una persona está a 100 m. de un río, y a 500 m. de un pueblo. El pueblo también dista 
500 m. del río. El terreno es llano, y ha de ir al pueblo tras haberse bañado. Haz un programa que 
te permita saber en qué punto del río debe hacerlo para que el camino recorrido hasta el pueblo 
sea mínimo. 

23. Queremos que salgan las iniciales de los cuatro puntos cardinales, cada uno de ellos en 
la correspondiente parte de la pantalla: 

a) sólo con la función TAB, 

b) sólo con la función AT. 

24. El mismo programa que el anterior, con la función AT, de manera que las iniciales se 
vayan superponiendo, girando en sentido del reloj (utiliza un retardo en cada superposición). 

25. Setrata de hacer el marco de la pantalla (22 * 32) a base de un carácterintroducido me- 
diante INPUT: 

a) generado en sentido horario, 

b) en sentido antihorario. 

26. Se pretende llenar la pantalla con el signo + de las siguientes maneras: 

a) Visualizado columna a columna, siendo la generación de abajo hacia arriba. 

b) Visualizado fila a fila, generándose cada una de derecha a izquierda. 

27. Hazlos triángulos de números siguientes: 


a) 
2 
33 


29. Representa en pantalla, a gran tamaño y hechas ton la misma letra, diversas letras del 
abecedario, como por ejemplo M,W,X. 

30. Análogo al anterior, pero que sean letras del alfabeto griego y formadas por puntos. 

31. Dibuja las siguientes banderas: 

a) La bandera americana, con sólo 28 estrellas (asteriscos). 

b) Una bandera «económica», compuesta por tres franjas verticales de 10 columnas cada 
una, en la que cada una de estas zonas esté formada por los símbolos del dólar, de la libra y de la 
peseta (P). 
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TEMA 7 
FUNCIONES NUMERICAS 


” a 
¿ 5, 
E=c2opaz O=zoros E=-xbastos E=-=z==P. 
LARTAS Ed. BZ, Cll, CS 
HO HAY: NEGO 
CARTAS CS ES) Ds BS 
FT RR TIO 
CR>SETAS : O, B104, Els, ClLO 
PARE OÁS) FA 
' e 


PROGRAMA N. 25, 


FUNCIONES TRIGONOMETRICAS 


Al igual que una calculadora (de hecho es una calculadora programable, con pantalla) el or- 
denador genera el resultado de las siguientes funciones trigonométricas: 


SIN (x) 

COS (x) 
TAN (x) 
ASN (m) 
ACS (m) 
ATN (m) 


donde x es el argumento, y ha de ir siempre expresado en radianes (a diferencia de las calculado- 
ras, los ordenadores trabajan en radianes), y mes el argumento, que está limitado de-1 a 1 enlos 
dos primeros casos. Si tuvieras un ángulo x en grados, para pasarlo a radianes basta multiplicarlo 
por TT y dividirlo por 180, ya que 1 rad = 57,3". 
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FUNCIONES ALGEBRAICAS 


SQR (x): calcula la raíz cuadrada del argumento, que, como sabes, debe ser positivo. Ahora 
bien, el resultado riguroso tiene los dos signos, pero sólo da el positivo. 

EXP (x): calcula la exponencial de base el número e, y x como exponente. Puede serx < 0. 

LN (x): calcula el logaritmo neperiano del argumento. Siempre x > 0. 

Si se pretende calcular logaritmos en cualquier otra base a, se ha de aplicar la fórmula del 
cambio de base 


nNÑN 
Ln a 


log, N = 


DEF FN Y FN 
DEF EN, en su forma más simple, tiene el siguiente formato: 
n.l. DEF FN y(x) = función de x 


donde y esel nombre asignado ala función (tiene que ser unaletra), xesla variablein dependiente 
y función de x es la función a utilizar, escrita en BASIC. 
Cuando el ordenador se encuentra con la instrucción FN y(a) siendo a un valor, va a la línea 
donde se encuentra DEF EN, calcula el valor de la función para a, y se lo asigna a FN. 
Supongamos que queremos una tablilla de valores de la función y = 3x?+ 7x+ 6, paralos va- 
lores enteros de x desde -4 a 4. El programa sería: 


10 DEF FN y(x)=3>xx*x-+7x*x-+6 
20 FOR x=-4 TO 4 

30 — PRINT x, FN y(x) 

40 NEXT x 


Observaciones 


— DEF EN puede estar en cualquier línea, pero hay micros que obligan a ponerlo al princi- 
pio. 
— Es posible una definición más amplia, con varias variables, como por ej.: 


DEF FN a(x,y,z) = x12+y12+212 


En la llamada con EN, harán falta, asimismo, tres argumentos, para las respectivas variables. 

— La determinación aproximada de las soluciones de una ecuación se puede hacer por tan- 
teo del modo siguiente: 

a) Se define la función de x. 

b) Se toma un intervalo suficientemente amplio donde pudieran estar las soluciones. 

c) Se construye una tabla de valores, con un bucle de paso suficientemente pequeño. 

d) Se observan los cambios de signo de la función, y los valores de x correspondientes al 
cambio acotan la solución. 

e) Paramás precisión se puede repetir el paso c, teniendo en cuenta los límites del intervalo 
acotado. 
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Observa las figuras siguientes: 


EN ESTE METODO, EL LIMITE 
INFERIOR SE VA ACERCANDO A 
LA SOLUCION. 


EL SUPERIOR ESTA FIJO. 


PODRIA HACERSE TAMBIEN AL 
REVES 
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OTRAS FUNCIONES 


INT (n): toma la parte entera del número n. Ejemplos: 


INT 5.46 = 5 
INT 0.092 =0 
INT--7.2 =-8 


ABS (n): toma el valor de n, prescindiendo de su signo. 
SGN (n): toma los siguientes valores: 


n>0->SGN= 1 
n=0-sSGN=0 
n < 0 > SGN = -1 


TRUNCAMIENTO Y REDONDEO 
Como aplicaciones de la función INT, veremos: 
a) Truncamiento de un número a p decimales. 


b) Redondeo de un número a p decimales. 


a) Elordenador trabaja hasta con 8 decimales, si se le deja. Si de un número N sólo quieres 
visualizar p decimales, bastará que uses la expresión: 


INT (N x* 101p)/ 101p 


Observaciones 


— El truncamiento de un número N siempre se efectúa por defecto. 

— El número N queda en memoria inalterado, con todos sus decimales. 
Ejemplo: si hacemos LET N= 84.57386 el truncamiento a tres cifras decimales es 
PRINT INT (N x 1000)/1000 
imprimiendo 84.573. 

b) Enel truncamiento el ordenador no tiene en cuenta el valor de la primera cifra decimal 
ignorada. Según las reglas del redondeo de un número decimal, siéstaes 5 o mayorse debeincre- 
mentar en una unidad la última cifra decimal del número truncado. Si queremos entonces p deci- 
males redondeados del número N, se utiliza la expresión: 


INT (N * 10tp + 0.5)/ 101p 


En el ejemplo anterior, el redondeo a tres decimales daría el número más preciso de 84.574. 


GENERACION DE NUMEROS ALEATORIOS 
Números aleatorios son aquellos generados al azar, como por ejemplo tirando un dado. 
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RND es una función que da un número aleatorio comprendido entre 0 y 1 (exclusive), con 8 deci- 
males. Ejemplo: 


10 REM CUATRO NUMEROS ALEATORIOS 
20 FOR ¡=I TO 4 

30  LETa=RND 

40  PRINTa 

50 NEXT i 


Nosotros, cuando lo hicimos, obtuvimos: 


0.45634608 
0.00315042 
0.96583 214 
0.60031042 


Seguro que a ti te salen otros valores, debido a que el ordenador los genera al azar. 
Supongamos que queremos simular el lanzamiento de un dado. Necesitamos que el micro dé 
un número entero entre 1 y 6, al azar. Fíjate en la secuencia seguida en la tabla siguiente: 


RND RND x 6 INT (RND * 6) INT(RND x* 6) + 1 


Para simular 10 lanzamientos del dado, el programa sería: 


10 FOR i=I TO 10 

20 LET a= INT (RND * 6)+1 
30 PRINT “lanzamiento ”;i,a 
40 NEXT i¡ 


Mediante un procedimiento parecido, se transforma el intervalo de toma de datos aleatorios 
(0,1) en el intervalo (a,b), con fórmula: 


RND x (b-a) + a 


(los límites a y/o b pueden ser negativos, con a < b) 
Así, si quisiéramos la impresión de cuatro años, elegidos al azar entre los de este siglo, sería: 


10 FOR ¡i=I TO 4 
20 LET an = INT(RND (1987-1900)) + 1900 
30 PRINT an : NEXT ¡ 


Como último ejemplo, generamos 25 estrellas en la pantalla, repartidas al azar: 


10 FORi=I TO 25 

20 LETx=RND * 21 

30  LETy=RND x 31 

40  PRINTAT x,y;"x" : NEXT i 
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PROGRAMAS 


1. Obtener una tabla de valores de la función seno desde O grados a 360, donde el ángulo 
vaya incrementándose de 5 en 3 grados. Hacer lo mismo con el coseno y la tangente. Para este 
último caso debes evitar los ángulos de 90 y 270 grados, pues el infinito no existe para el micro. 
Sin embargo, deberá indicarlo. 

2. Paracomprobarla exactitud del micro, haz que salga en la primera zona de la pantalla los 
valores de la tangente, y en la segunda los valores del seno partido por el coseno. El ángulo ba- 
rrido será desde -45” a 45”, de uno en uno. 

3. Verifica las fórmulas siguientes: 

a) senta +cos? a =1 

b) tg a =1/cos* a -1 

4. Se demuestra en Matemáticas que se pueden hacer las siguientes aproximaciones, que 
son tanto mejores cuanto menor sea el ángulo: 

a) sena — 0, 

b) sen A — tg «, donde a debe estar expresado en radianes. 

Haz los programas que visualicen los valores de los dos miembros de la aproximación, en 
cada zona de la pantalla. Después de vistos los valores, el micro deberá imprimir el tanto por 
ciento de error, para cada ángulo a. El ángulo barrido será de O a 10”, con un incremento sufi- 
cientemente pequeño. Comparar con el programa 12 del cap. anterior. 

5. Obtener los límites siguientes, numéricamente 


. a ; X - sen X 
a) lim x sen — b) lim 2 
x= X x=0w. X+Ssenx 


donde a es un parámetro a introducir por el usuario. 
6. Obtener el límite de las sucesiones 


a) Ya, Ya Ya Ya da Ya 
O SO 0 UN pera pr 


donde a es un número entero, introducido con INPUT. 

7. Uncampo defútbol tiene 35 m. del córner al primer palo de la portería. Entre palo y palo 
hay 8 m. Un jugador se sitúa en la banda, a x metros del córner. Desde ese punto ve la portería 
bajo un ángulo x.. Se trata de que el ordenador calcule a en función de x, o sea, que imprima una 
tablá con x a la izquierda y a (en grados) ala derecha. Empezar por x= 60, eir disminuyendo de 
metro en metro. Se observa que hay una posición óptima para el tiro. ¿Cuál es? 

8. Por un procedimiento parecido al anterior, deteminar el primer máximo y el primer 
mínimo de las funciones: 

a) sen Q + tg (0/3), 

b) 10+ exp (-x/20) + cos (x/5) 

9. Introducido un número real al ordenador, éste imprime dicho número y su raíz cua- 
drada, con el doble signo. Prevé la posibilidad de que el número sea negativo, en cuyo caso dará el 
número imaginario correspondiente. 
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10. Mediante la función SGN, y con el procedimiento teórico explicado, determina las so- 
luciones de las siguientes ecuaciones: 


a) x*-2x-5=0 (tiene una solución real y dos imaginarias). 


b) 2x-1nx-4=0 Cc) 2=4x 

d) e te*-4=0U e). xinx—14=0 

ft x-3x+1=0 g) senx=x-1 
163 


179 == 
h) eE 1+x2+sen? x 119 
Y xX+x+1=0 


11. Mediante el bucle FOR i= 1 TO 89 comprueba alguna de las igualdades siguientes: 

1. tgx+ 1/tg x= 2/sen 2x 

2. tgx/2=senx/(1++c0s x) 

3. tgx/2= 1/senx-1/tg x 

4. (2 sen x -sen 2x)/ (2 sen x + sen 2x) = tg? x/2 

Observación: Recuerda que el ángulo x debe estar expresado en radianes. En consecuencia, 
transforma la variable del bucle. 


12. Obtén una tabla de valores que te permita deducir los límites: 


a) el , cuando x > 3 


x-3 
b) Ye , cuando x > O 
c) a cuando x > 2 


d) x(5'”*-1), cuando x > +00 
con aproximación al límite tanto por la derecha como por la izquierda. 

Observación: 

Sila tabla de valores fuese oscilante, es que te has acercado demasiado al valor del límite; en- 
tonces elige para el valor inicial de la variable del bucle un número más alejado. 


13. Comprueba, con ayuda de una tabla, los límites siguientes: 


1 - cos x 
=== x>0 


a) x? (0,5) 
b) a x>a (sen a) 


(el parámetro a debe ser introducido mediante INPUT). 
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3 . 
c) sen mx ._0 m ] 
sen nx n 
(los parámetros m, n deben ser introducidos con INPUT). 


1 - cos x 
d) (e A 1) x>0 (0,5) 


14. Análogamentealos anteriores, obtén los límites siguientes, cuya solución viene expre- 
sada en función del número e: 


a) lim(1+1/n) 
O E 
2) qn n?- 2 ) 


! n?+1 2n- 1 
c) lim n:+n+1 


15. Comprueba que el número e se puede expresar de las formas siguientes, tanto más 
aproximado cuantos más sumandos tomes: 


a). TFR 


A A 
) ITAUTIATE T/A 15H... 
] 1 

) A/A 5/61- 7/81. 


16. Comprueba que, para 100 números aleatorios, se cumple aproximadamente: 

a) que su media es 0,5, 

b) que si tomamos con signo negativo la mitad de ellos, la media es 0, 

c) que si los tomamos en el intervalo 1.000-2.000, su media es 1.500. 

17. Supongamos una moneda equilibrada, la cual vamos a lanzar un determinado número 
de veces, dado por INPUT. Debe salir en TV los sucesivos lanzamientos (C, cara y + para cruz), y 
después las frecuencias relativas a cada caso. Se considerará que la moneda está defectuosa si 
una de las frecuencias fuese menor que el 30% en cuyo caso se repetirán los lanzamientos. 

18. Programa por el que el ordenador te pregunte las tablas de multiplicar, de forma sal- 
teada, de manera que tras haber pedido 20 productos, el micro te conteste «BIEN» si no tuviste 
ningún fallo, «REGULAR» si hubo uno o dos, y «MAL» si hubo más de dos. 

19. El ordenador genera un número aleatorio, comprendido entre 0 y 1.000, y tú debes 
descubrirlo. En cada intento, si no aciertas te dice si está por encima o por debajo; cuando final- 
mente lo aciertes, te dice cuántos intentos has necesitado. 

20. Análogo al anterior, pero ahora el ordenador va a jugar contigo. Tras cada intento no 
acertado, el ordenador moverá el número-respuesta un máximo de 4 unidades, hacia arriba o ha- 
cia abajo. 
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21. Simular la obtención de los tres primeros gordos de la Lotería Nacional (los números 
son desde el O al 59.999). A un mismo número no le puede tocar dos premios. 

22. Simular la obtención de los cinco números de una línea de cartón de bingo. Los núme- 
ros son del 1 al 99, sin poder repetirse. 

23. Vamosallamar a la baraja española de la forma siguiente: los palos, C, O, B y E, y los 
números de cada palo del 1 al 10. Simular la extracción de dos cartas de la baraja. 

24. Ampliando el programa anterior, el ordenador examina las cartas. Si son del mismo 
palo, o de números consecutivos, lo indica. 

25. Deuna baraja española se toman cuatro cartas. Tras la visualización, te indica si ha sa- 
lido algún trío o pareja. 

26. Se pretende que salgan en pantalla 50 estrellitas, de forma aleatoria. El ordenador 
cuenta el número de estrellas que salieron en un cuadrado de dimensiones 10 x 10, ubicado en el 
ángulo superior izquierdo de la pantalla. 

27. Un dado está «cargado» de forma que la probabilidad de obtener las distintas caras es 
proporcional a la puntuación de la cara superior. Se lanza tal dado 20 veces. Seimprimen los re- 
sultados. 

28. Enellanzamiento de dos dados equilibrados y al azar, calcular su suma. Tras hacer esto 
doscientas veces, el ordenador imprime la frecuencia relativa de las sumas 6,7 y 8. ¿Cuál es la 
más probable? 

29. Unaestadística oficial señala que en cierta población hay un 30% de enfermos sólo con 
gripe, un 20% que tienen sólo catarro, y un 10% con ambas enfermedades. Se realiza una en- 
cuesta telefónica entre 20 personas. El ordenador te imprime un posible resultado de la en- 
cuesta. 

30. Tenemos una urna con dos bolas rojas, tres amarillas y cuatro negras. Simula la extrac- 
ción de dos bolas en los siguientes casos: 

a) con reposición de la primera, 

b) sin reposición. 
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TEMA 8 
FUNCIONES CON CADENAS 


TEXTO 
A Laz cinco de La tarde. 
ran Laz cinco en punto de La 
tarde, 
Jn nino trajo la blanca sabana 
E Las cinco de La tarde. 
Ma esPpuierta de cal qa prevenida 
Laz cinco Je la tarde. 
oO demas era muerte Y SoLo muer 
E 
Las cin de La tarde. 
PALASRAS FRECUENCIAS 
cinco E, 
tarde =s 
muerte = A 
od 


PROGRAMA N.* 15, 


COMPARACION. CONCATENACION 


Al igual que en las variables numéricas, podemos hacer comparaciones con las alfanuméri- 
cas o cadenas, con los operadores lógicos ya vistos en el Cap. V. 

El alfabeto BASIC está formado, por este orden: (espacio), números del 0 al 9, mayúsculas, 
minúsculas. 

El resto de los caracteres no se consideran ahora. Se dice que un carácter es menor que otro 
cuando está antes en el alfabeto BASIC. Asía < c, pero a > C.Sienla comparación los primeros 
caracteres son iguales, se prosigue hasta encontrar dos diferentes. Así: 


“distinto” es mayor que “distante”. 
“AB-7" es menor que “AB- 9”. 


El programa que compara dos cadenas es: 


10 INPUT a$,b$ 
20 IFa$ <b$ THEN PRINT a$;” menor que “;b$:GOTO 10 
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30 IF a$ >b$ THEN PRINT a$;“mayor que ” ;b$:GOTO 10 
40 PRINT “son cadenas iguales”: GOTO 10 


Se entiende por concatenación la yuxtaposición de cadenas.Se realiza con el operador +. 
Prueba como ejemplo: 


10 REM concatenación de tres cadenas 

20 LET a$="“hoy sólo has dormido ” 

30 LET b$=" horas” 

40 INPUt “cuántas horas has dormido esta noche? ";c$ 
50 PRINT a$ + c$ + b$ 


VALOR LOGICO DE UNA COMPARACION 

Siuna comparación, tanto numérica como alfanumérica es verdadera, el ordenador le asigna 
el valor lógico 1; en caso contrario, le asigna el O (el ordenador no acepta comparar una variable 
numérica con otra alfanumérica). 

Si tenemos, inserta en un programa, la comparación (a>b), con a y bconocidas por el micro, 
sele asigna a esta expresión su valor lógico. Una aplicación interesante esla de direccionamiento 
múltiple. Si tenemos, por ejemplo: 

n.!. GOTO 200 x (a=b) + 300 x (a > b) + 700 x (a < b) 
el control del programa irá: 
a la 200, si a=b 

300, a>b 

700, a<b 

Es decir, el micro toma una comparación como una variable de tipo booleano, que sólo 
puede tomar como valores el 1 o el 0. 


LONGITUD DE UNA CADENA 


La sentencia LEN aS calcula el númerototal de caracteres que tienela cadenaaS (seincluyen 
signos de puntuación, espacios, etc.). 


Ejemplo: 

10 LET a$="“INFORMATICA” 

20 PRINT a$ ;” tiene “¡LEN a$ ;” LETRAS” 
SENTENCIAS: VAL, STR$ 


Si en una variable alfanumérica los únicos caracteres almacenados son números, ésta se 
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puede convertir en variable numérica, con la sentencia VAL. (En el Spectrum, si además de 
números hay otros caracteres en la cadena, la sentencia no funciona). 


Ejemplo: Si tenemos aS="1985”, podemos construir la variable 


LET a= VAL a$ 


que adquiere el valor numérico de 1985. 
La sentencia STRS hace justamente lo contrario: convierte un número en una cadena. En el 
Sl 


10 LET d=12 
20 LET a$ = STR$ (d) 


aquí, en la variable d se guarda el valor numérico 12 y en la variable aS se guarda la cadena «12», 
por lo que podríamos hacer d=12, pero no tiene sentido aS = 12. 


SENTENCIAS DE DESPIECE DE CADENAS 


Si tenemos una cadena almacenada en la variable aS, podemos hacerle los siguientes cortes: 

LEFT S (aS,n): toma de aS los n caracteres del lado izquierdo. 

RIGHT $ (aS,n): toma de aS los n caracteres del lado derecho. 

MIDS(aS,p,n): toma de aS los n caracteres hacia la derecha desde aquel que está en la posi- 
ción p de la cadena. 

TL $ (aS): toma de aS todos los caracteres excepto el primero. 

Por ejemplo, en la cadena aS = «HOY TENEMOS 18 GRADOS». 


Vamos a hacer los siguientes despieces: 


LEFT$(a$,8) — “HOY TENE” 
RIGHT$(a$,6)- “GRADOS” 
MID$(a$,13,1)- “18 GRA” 

TL$(a$)- “OY TENEMOS 18 GRADOS” 


Hay ordenadores que no disponen de las sentencias anteriores, pero las suplen con la senten- 
cia TO. El formato es: 


a$ (mTOn) 


donde m y n son, respectivamente, las posiciones inicial y final de la subcadena obtenida: 
— Si m=n, se obtiene el carácter de esta posición. 
— Si m>n, se obtiene la cadena vacia. 
— Si m>LEN aS(n.* caracteres de la cadena), el ordenador da error. 
— Si se omite m, se toman los n primeros caracteres. 
— Si se omite n, se toma toda la cadena, excepto los (m-1) primeros caracteres. 
— Si se quiere los p últimos caracteres hay que poner: 


a$ (LENa$-p+1) 
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Haciendo aS="123456789” tendríamos: 


a$ (2 TO 5) — "2345" 
a$ (TO 5) — "12345" 
a$ (7 TO) — “789” 
a$ (4 TO 4) — “4” 
a$ (5 TO 13) — error 


Recuerda que, como siempre, m y n pueden ser: 
— constantes, 

— variables definidas, 

— expresiones con variables. 


SENTENCIA: INKEYS$ 


Permite la entrada de un carácter y sólo uno, desde el teclado, sin necesidad de pulsar EN- 
TER. Cualquier tecla pulsada se asigna a INKEY'S, sólo si cuando pasa el programa por esta sen- 
tencia estás pulsando algo. Si no pulsas, se le asigna la cadena vacía. 

En cualquier caso, INKEYS no hace detener el programa, como lo haría INPUT. Por lo 
tanto, site resulta necesario, puedes obligar al programa a volver ala mismalínea, deforma conti- 
nuada, como lo hacen las líneas 10 y 30 del siguiente programa. Utiliza el teclado como máquina 
de escribir, y la pantalla como papel: 


5 REM primer ejemplo de INKEY$ 
10 IFINKEY$ ="" THEN GOTO 10 
20 PRINT INKEYS$ ; 

30 IFINKEY$<> ”” THEN GOTO 30 
40 GOTO 10 


Comentario al programa: 

línea 10: espera mientras no pulses una tecla, pero una vez pulsada asigna el carácter de la te- 
cla a INKEYS, y va a la 20. 

línea 20: imprime el carácter almacenado en INKEYS: 

— Si pulsaste un espacio, deja un espacio en blanco. 

— Si pulsaste un ENTER, pasa a la línea siguiente (retorno de carro). 

— Si pulsaste un carácter equivocado, no es posible la corrección. 

línea 30: espera que dejes de pulsar la tecla (prueba a suprimirla). 

línea 40: manda repetir el proceso. 

También podemos asignar INKEYS a una variable alfanumérica, para posibles usos poste- 
riores. Así, el programa anterior podíamos haberlo hecho de este modo: 


5 REM segundo ejemplo de INKEY$ 
10 IFINKEY$ ="" THEN GOTO 10 
15 LET a$ =INKEYS$ 
20 PRINT a$; 
30 IFINKEY$<>"" THEN GOTO 30 
40 GOTO 10 


La versión de INKEYS en otros micros es GET. Pero, así como en INKEYS lo pulsado es 
considerado por el micro como una cadena (ya fuera número, letra u otro carácter), para GET 
hay dos versiones, una para valores numéricos, y otra para cadenas, que son, respectivamente: 


— nl GETn 
— nl GETn$ 


SENTENCIA: PAUSE 
Realiza una pausa en la ejecución del programa. El formato es: 
n.l. PAUSE (argumento) 


donde (argumento) puede ser, como siempre, una constante, una variable conocida u operacio- 
nes con variables. 


Ej.: n.l.. PAUSE 200 


detiene el programa 200 unidades de tiempo. La unidad de tiempo utilizada es 1/50 segundos 
(para América es 1/60). Entonces: 


200x 1/50 = 4 segundos de pausa. 


Si el argumento es 0, la pausa es indefinida. 

NOTA: La pausa queda automáticamente eliminada al pulsar una tecla, que no queda alma- 
cenada en memoria. 

Si quieres que la pausa sea ineliminable, la sustituyes por un bucle vacío: 


n.l. FOR e=1 TO 500:NEXT e 
También podemos realizar el programa de la máquina de escribir usando el PAUSE O: 


10 REM PAUSE con INKEY$ 
20 PAUSE 0 

30 PRINT INKEY$; 

40 GOTO 20 


El objeto del siguiente programa-ejemplo es seleccionar y almacenar en la variable a una de 
las seis posibilidades de un supuesto menú, que ha salido en pantalla: 


100 PRINT AT 21,0: “pulsa del 1 al 6” 

110 PAUSE 0 

120 LET a$ =—INKEYS$ 

130 IF a$< “1” OR a$> “6” THEN CLS: GOTO 100 
140 LET a=VAL a$ 

150 GOTO 1000xa 


Comentario 


Con las líneas 110 y 120 la tecla pulsada se almacena en la variable alfanumérica aS. La 130 
analiza si la tecla pulsada esta fuera del intervalo 1-6, dentro de la ordenación del alfabeto BA- 
SIC, en cuyo caso vuelve a pedir el número, por no ser correcto. Cuando el número está dentro 
delintervalo pasa ala 140, que transforma aS en su valor numérico, y se almacena enla variable a. 
La línea 150 manda el control del programa a aquella parte del mismo que realiza la opción ele- 
gida. 


PROGRAMAS 


1. El micro pregunta tu nombre y lo imprime en el centro de la pantalla, subrayándolo. 

2. El micro pregunta tu nombre, y lo escribe dejando un espacio entra cada dos letras. 

3. AsignaaS variables alfanuméricas las cadenas: 

— «el futuro», 

— «la informática», 

— «en», 

— «está», 

— «aquí», 

Imprime, con estas variables, las siguientes frases: 

— El futuro está aquí. 

— El futuro está en la informática. 

— La informática está aquí. 

4. El ordenador analiza el INPUT de variable alfanumérica. Si es un número, lo imprime, 
junto con su cuadrado. Si no, da el mensaje «DATO NO COMPUTABLE». 

5. Con la palabra LUISMANUEL haz el programa que imprima: 

— los 4 primeros caracteres, 

— los 6 últimos, 

— los dos del medio, 

— el mismo nombre, pero con un espacio entre ambos nombres simples, 

— Otro nombre, con estos nombres simples en orden inverso. 

6. Utilizando las variables numéricas A=1,,B=2,,C=5,,D=8,,E=9,imprimirlafecha 5-1 - 
1985, previa conversión de estas variables numéricas en otras alfanuméricas. 

7. Seintroduce el infinitivo de un verbo castellano al ordenador. Debe ser un verbo regular 
y de la 1.* conjugación. El micro debe extraer la raíz e imprimir los tiempos presente y futuro. 

8. Mediante INPUT de cadena, se introduce una fecha (por ejemplo, 25 -7 -1952).Se pasa 
a frase, del modo: 
25 de julio de 1952. 

9. Introducida una cadena, se imprime: 

a) de arriba a abajo, 

b) de derecha a izquierda. 

10. El ordenador pregunta tu nombre. Con él traza: 

a) una cruz, 

b) un cuadrado. 
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Si por ejemplo fuese «MARIA», ha de salir, respectivamente: 


A 

I 

R MARIA 

A A I 
AITIRAMARIA R R 

A I A 

R AITIRAM 

I 

A 


11. Selecciona un párrafo de una obra literaria. Introducido al ordenador, éste te cuenta: 

a) los signos de puntuación (, / ./:/ ;), 

b) las vocales, 

c) espacios, 

d) laletra «y». 

12. Dada una frase al micro: 

a) suprime los espacios en blanco, 

b) donde hay un espacio te pone dos. 

13. Dada una frase al micro, éste extrae: 

a) aquellas palabras que empiecen por mayúscula, 

b) los números. 

14. Dadounpárrafo al micro, éste detecta la existencia de una determinada palabra, que tu 
introduces con INPUT. 

15. Análogo al anterior, pero contando cuántas veces aparece dicha palabra en el texto. 

16. Se dibuja en el centro de la pantalla una estrella. Mediante las teclas de cursor muévela 
en la dirección correspondiente, usando la instrucción INKEYS: 

a) deteniéndose en las paredes, 

b) rebotando en ellas. 

17. Una estrella se mueve con movimiento oscilante en la fila 10 de pantalla. El movi- 
miento ha de ser en columnas consecutivas, y con un retardo, que será un bucle en vacío. El bo- 
rrado de cada posición puede ser: 

a) con CLS, 

b) imprimiendo un espacio en blanco. 

18. Amplía el programa anterior, de modo que quepan las siguientes posibilidades: 

a) parada, al pulsar la «<p», 

b) continuación de movimiento, al pulsar la «c», 

c) inversión instantánea del movimiento, al pulsar la «i». 

19. Mediante la manipulación del tiempo de espera (bucle de espera) hacer que la estrella 
acelere (tecla «a») o bien frene (tecla «f»). 
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TEMA 9 
FICHEROS INTERNOS 


COTIZACIONES del DOLAR (53) 


LE 1237. 130 130 1 
1 135 135. 135, 137 
135 15 13 LES 13 
145 lada la 1 185 
COotizaciom JA2slL 11 dia = 13% 
Hedia entre 35 Y 7 dia = 131. 
', Pe 
PROGRAMA N/ 4. 
INTRODUCCION 


En ocasiones nos encontramos que debemos manejar una inmensa cantidad de datos, que se 
han de introducir por el teclado con INPUT, o bien asignárselos con la instrucción LET a varia- 
bles. Esta forma de operar es pesada y poco práctica. : 

En BASIC disponemos, en principio, de un conjunto de instrucciones que hacen este trabajo 
más eficiente. Son DATA, READ y RESTORE. 

Los lugares donde se almacenan los datos se les llama archivos o ficheros, que pueden ser de 
dos tipos: internos y externos. 


1. FICHERO INTERNO 


Es aquel en que los datos se meten en líneas de programa con la instrucción DATA.Es decir, 
este fichero es parte del programa. 

Estos ficheros son adecuados para un volumen pequeño o medio de datos a procesar, pues 
como estas líneas DATA se almacenan en la memoria RAM, a mayor volumen, menos memoria 
queda disponible. 
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2. FICHERO EXTERNO 


Su soporte físico son cintas o discos (disquetes para los ordenadores personales), donde se 
puede llegar a almacenar gran cantidad de datos. 

A su vez entre los ficheros de este tipo conviene diferenciar los de acceso secuencial y los de 
acceso directo. 

Los secuenciales son bastante más lentos que los directos, pues para acceder a un dato a pro- 
cesar el sistema operativo tiene que empezar leyendo los datos desde el primero, hasta encontrar 
el solicitado, mientras que los directos acceden al dato sin pasar por los anteriores. 

En el capítulo XIV volveremos a hablar de este tipo de ficheros. 


SENTENCIAS: READ, DATA 
La sentencia READ tiene el formato: 
READ (variables) 


donde (variables) es una sucesión de variables: 
— numéricas, 
— alfanuméricas, 
— combinación de ambas 


Ejemplos: 

READ  a,b,x 

READ  c$h$x$ 
READ a$,b$,m,n,z$ 


Esta instrucción lee los datos de las líneas DATA por orden riguroso, y los asigna alas varia- 
bles de la sentencia READ, por el orden que figuran. 
La sentencia DATA tiene el formato: 


DATA ( datos ) 


donde (datos) es una sucesión de números o cadenas (los datos de cadena, entre comillas). 
Un ejemplo de líneas DATA que se corresponden con los ejemplos de READ son: 


DATA 10,234,0 
DATA ”PEDRO”,” Alicia”,“Margarita” 
DATA “Gil” “César”,25,7172737,"C/Gran Vía,11” 


Las líneas DATA se pueden colocar en cualquier parte del programa, ya que no son ejecuta- 
bles. El ordenador sólo las utiliza cuando ejecuta una sentencia READ. Conviene agruparlas, 
por claridad, bien al principio o al final del programa. 


Observaciones 


— Las líneas DATA deben contener, como mínimo, tantos datos como deba leer el pro- 
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grama (si hay más no pasa nada, no se leen). Si hay menos, se detiene el programa con el mensaje 
OUT OF DATA 

— Los datos en las líneas DATA tienen que tener una estructura idénticaa la de lectura en la 
sentencia READ. Fíjate para ello en el tercer ejemplo delos READ y DATA anteriores. Así, lee 
y asigna: 


a$ - “Gil” 

b$ —- “César” 

m —> 25 

n = 7172737 

z$ — “C/Gran Vía,11” 


DO Sy »)s0» 


— Es interesante a veces el uso de una sola variable de lectura, mediante un bucle. Si, por 
ejemplo, se trata de leer y procesar 10 datos, sería: 


10 FOR n=1 TO 10 
20 READ a :PRINT a 


1000 DATA 1,48,32,3,79,2,11,0.7,- 4,2.3 


En el ejemplo siguiente, el primer dato a leer, que se almacena en la variable n, nos dice preci- 
samente el número de datos a leer. Con ellos se hará la suma. 


10 READ n 

20 LET s=0 

30 FOR ¡i=I TO n 

40 READ x 

50 LET s=s+x 

60 NEXT ¡ 

70 PRINT “SUMA=":;s 
500 DATA 6 
510 DATA 4,50,8,- 12,0,2.5 


SENTENCIA: RESTORE 

Cada dato leído de una línea DATA nose puede volver a leer. Escomosi se hubiese quedado 
inutilizado. Sin embargo, hay ocasiones en que necesitamos volver a hacer una relectura de da- 
tos. Para ello disponemos de la sentencia RESTORE, que hace utilizables de nuevo todoslos da- 
tos, para una posterior orden READ. Basta ponerla en el lugar adecuado de programa. 

Una variante de esta sentencia es 
n.l. RESTORE m 


donde m es el número de línea DATA donde queremos empezar la lectura. 
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Con esta variante podemos hacer que el ordenador lea los datos de una línea dada, directa- 
mente, sin tener que haber leído los anteriores. Escomo una sentencia GOTO, aplicable sólo ala 
sentencia READ de lectura de datos. : 

Un ejemplo del uso de esta sentencia es: 


10 REM lectura en la línea adecuada 
20 PRINT “TEMPERATURAS DE UNA SEMANA”: PRINT 
30 INPUT “semana ? (1 -4) ”;s 
40 IFs < 1 0R s > 4 THEN GOTO 30 
50 RESTORE 100 x* s 
60 FOR ¡=l TO 7 
70 READ t 
80 PRINT “día ”;i,t;” grados” 
90 NEXT i: GOTO 10 

100 DATA 18,17,19,17,20,153,14 

200 DATA 19,19,17,16,17,15,14 

300 DATA 17,17,18,19,19,16,17 

400 DATA 15,16,17,18,18,17,19 


PROGRAMAS 


1. Imagina que estamos en un observatorio metereológico en el que te encuentras encar- 
gado de recoger y procesar los datos de pluviometría. En el mes de mayo se obtuvieron los si- 
guientes datos: 

1.2 semana: 7,5,0,0,8,10,12. 

2.2 semana: 12,13,2,0,0,0,0.7. 

3.2 semana: 1,1.5,1.8,2,3,5,2. 

4.2 semana: 4,10,15,15,7,7,5. 

Se pretende realizar el programa que permita obtener la pluviosidad media de la primera se- 
mana, de las dos primeras, de las tres primeras y de las cuatro. 

2. Conlos mismos datos del anterior, obtener la pluviosidad media de la última semana, de 
las dos últimas, de las tres últimas y de las cuatro. 

3. Conlos mismos datos del anterior, realiza un programa que dé la media de dos semanas 
cualesquiera, a elección del usuario. 

4. En los veinte días bursátiles de cierto mes, la cotización del dólar estuvo a 
123,127/.5,130,130.129:132,135,133.9,133:03,137,138,135,135,136,139 
,145,140,141,150,155, en pesetas. 

Realiza un programa que permita las dos cosas siguientes: 

a) Conocer la cotización de determinado día. 

b) Obtener la media de las cotizaciones entre dos fechas (inclusive) que son introducidas 
por el usuario. 

5. Se da la distribución del número de hermanos que tiene cada uno de los 33 alumnos de 
una clase. Calcular su desviación típica: 


3 alumnos no tienen ningún hermano 10 alumnos tienen 3 hermanos 
4 alumnos tienen 1 hermano 8 alumnos tienen 4 hermanos 
7 alumnos tienen 2 hermanos 1 alumno tiene 5 hermanos 
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TEMA 10 
MATRICES 


E 
m 
E 
o 
o 
T 
TD 
2 
Y 


= 
> 
La 
5 
E 
me] 
= 
1 


ABELDEPGHAH 


TE CQCIUIECAN =z CISPAROS 


PROGRAMA N. 10 


DEFINICION Y TIPOS. VARIABLES DE INDICE 


Llamamos matriz a una agrupación de datos donde se conserve el orden de éstos. Estos datos 
pueden ser numéricos o alfanuméricos. Según sea la estructura de esta agrupación, se clasifican 
en: 

— Monodimensionales, cuando los datos están distribuidos en línea. 

— Bidimensionales, cuando están distribuidos en una red de filas y columnas. 

— Tridimensionales, formados por filas, columnas y una tercera dimensión de fondo. 

— Multidimensionales. 

Un ejemplo de matriz monodimensional sería: 


El ordenador almacena los cinco datos en sucesivas posiciones de la memoria. Cada uno de 
elloses asignado alo que llamaremos una variable de índice, siendo la matriz el conjunto de todas 
ellas. 


CADA NUMERO OCUPA 
5 BYTES DE MEMORIA 
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SENTENCIA: DIM 


Con esta sentenciale mandamos al ordenador que reserve en memoria tanto espacio paralos 
datos como se necesite. Estos espacios de memoria están inicialmente, es decir, cuando se eje- 
cuta la instrucción DIM: 

— COn ceros, para matrices numéricas, 

— blancos, para las alfanuméricas. 

Y asícontinúan, hasta queson llenados conlos datos, siguiendo los procedimientos que vere- 
mos a continuación. 


MATRICES MONODIMENSIONALES NUMERICAS 
El dimensionado de este tipo de matrices sigue el formato siguiente: 
n.l. DIM z(n) 


donde z es el nombre asignado a la matriz y nes el número de posiciones de memoria que reserva 
el ordenador. 
Para el ejemplo anterior hubiera sido necesario: 


DIM z(4) 


Una vez dimensionada, se procede a llenar la matriz. Lo más conveniente es usar un bucle 
para el llenado, a través de cada variable de índice. Estas variables tienen las características pro- 
pias de todo tipo de variables. Su formato esz(1), refiriéndose a la variable de índice que ocupa el 
lugar 1, en la matriz. 

Los diversos procedimientos de carga de la matriz son: 

a) Con LET. 

Se le asigna a cada variable de índice el resultado de cierta operación: 


n.!. DIM a(12) 

n.!. FOR ¡=1 TO 12 
n.l. LET  a(i)=ix*i-1 
n.l. NEXT ¡ 


En este bucle, al aumentar la variable del bucle, se van llenando las variables de índice (o sea 
la matriz), con la expresión descrita. 

b) Con INPUT. 

Las variables de índice se llenan con los números introducidos por teclado: 


n.l. DIM a(12) 

n.l. FOR ¡i=1 TO 12 

n.l. INPUT “introduce número”; a(i) 
n.l. NEXT 


c) Con READ. 
Con esta instrucción, cada dato leído se introduce en la matriz. En este caso sería: 
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n.l. DIM a(12) 

n.l. FOR ¡=1 TO 12 

nl. READ a(i) 

n.l. NEXT ¡ 

n.l. DATA  0,3,8,15,24,35,48,63,80,99,120,143 


Una vez llenada la matriz, los datos están ahí, para su uso posterior. Si sólo queremos visuali- 
zarlos, se hace con un bucle análogo: 


n.l. REM visualización de la matriz 
n.l. FOR i¡=1 TO 12 


n.l. PRINT “dato ”;i,a(i) 
n.l. NEXT ¡ 
Ejemplo: 


Vamos a usar una matriz para almacenar y procesar (hacer la media) las temperaturas de una 
semana: | 


10 REM suma de una matriz 
20 LET s=0 
30 DIM t(7) 
40 FOR i¡=1 TO 7 
50 READ t(i):NEXT i 
55 REM bucle de suma 
60 FOR i=1 TO 7 
70 — LETs=s+ t(i) : NEXT ¡ 
80 REM visualización 
90 PRINT “TEMPERATURAS :” 
100 FOR i=1 TO 12 
110 — PRINT t(i) :NEXT i 
120 PRINT “La media es ";s/7 
900 DATA 5,0,-2,0,-3.5,1,4 


Intenta hacer este programa, pero con sólo un bucle. 


Observaciones 


— Elnúmeron, que indica cuántas posiciones de memoria se reservan, puede ser una varia- 
ble. 
— No se puede utilizar una variable de índice con un índice superior al de dimensionado. 
— Como habrás observado en los bucles anteriores, el índice empieza en 1, aunque hay or- 
denadores cuyo índice empieza en 0. 

— Comoel índice puede ser el resultado de una fórmula, si diese un número decimal, el mi- 
cro te lo redondea. 

— Noesnecesario dimensionar una matriz si el número de variables de índice no supera 10. 

— Esposible y compatible el uso de una variable que tenga el mismo nombre que la matriz 
(en el último ejemplo, se puede usar una variable llamada t, pues el ordenador distingue t de t(1)). 


83 


MATRICES BIDIMENSIONALES NUMERICAS 


Recuerda el juego de los barcos, donde cada casilla está determinada por una fila y una co- 
lumna. Si en cada casilla (celda de memoria) metiésemos un número, tendríamos una matriz bi- 
dimensional. 

Una matriz con datos, de tres filas y cuatro columnas por ejemplo: 


7 1 -5 4 > 1.? fila 
2 3 9 -6 > 2? fila 
-1 0 24 7 > 3.? fila 
| ” 

col 1 col 4 


El formato del dimensionado es: 
n.l. DIM y(f,c) 


donde y es el nombre asignado a la matriz, fesel número de filas a reservar y cesel número de co- 
lumnas a reservar. 
En el ejemplo anterior, sería: 


DIM y (3,4) 


Estas matrices consumen mucha memoria, puesto que se reservan fXc variables. 

El llenado de este tipo de matrices procede a hacerse con un bucle anidado, de manera que un 
bucle vaya barriendo las filas, y otro las columnas. Se puede hacer también con LET,INPUT o 
READ. | 

Vamos a ver el llenado de la matriz anterior: 


10 DIM t(3,4) 

15 REM llenado de cada fila 

20 FOR f=1 TO 3 

25 REM llenado de cada columna 

30 FOR c=1 TO 4 

40 PRINT “FILA ”;f;” COLUMNA ”:;c, 


50 INPUT t(f,c) : PRINT t(f,c) 
60 NEXT c 
70 NEXT f 


Este bucle anidado carga la matriz fila a fila, es decir, que para un valor fijo de (fila), se car- 
gan las columnas. 
Los datos están ahora correctamente guardados (sino te has equivocado en la introducción) 
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en su fila y columna adecuadas. Ahora bien, si intentamos visualizarlos con el siguiente pro- 
grama: 


100 FOR f=1 TO 3 
110 FOR c=1 TO 4 
120 PRINT t(f,c) 
130 NEXT c 

140 NEXT f 


aparecerían los 12 datos en columna, no viéndose por tanto la matriz bidimensional. 

Para poder visualizarla correctamente, debemos auxiliarnos de las sentencias de posicio- 
nado: TAB o AT. 

Usando el TAB, con una separación entre columnas de cinco en cinco, sería: 


95 REM impresión de cada fila 
100 FOR f=1 TO 3 
105 REM impresión de cada columna en la fila 
110 FOR c=1 TO 4 
120 PRINT TAB(5xc);t(f,c) 
130 NEXT c 
140 PRINT:PRINT 
150 NEXT f 


Por la línea 120, los sucesivos datos se imprimen en la columna adecuada. Al terminar ésta, 
por la línea 140 se dejan dos líneas en blanco antes de imprimir la fila siguiente. 

Ahora que hemos visto la visualización de la matriz, intenta su llenado con las instrucciones 
READ-DATA. Asimismo, intenta la impresión con la sentencia AT. 

Dependiendo del tipo de matriz que sea, puede suceder que no entre en pantalla. Te sugeri- 
mos el troceado. 

Con la matriz del ejemplo, vamos a hacer unos procesos sencillos: 


1. LA SUMA DE CADA COLUMNA 
El programa adecuado sería: 


200 FOR c=1 TO 4 

210 LET s=0 

220 FOR f=1 TO 3 

230 LET s=s + t(f,c) 
240 NEXT f 

250 PRINT “columna ”;c,s 
260 PRINT 

270 NEXT c 
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2. LASUMA DE TODOS LOS COMPONENTES DE LA MATRIZ 


300 LET s=0 

310 FOR c=1 TO 4 

320 FOR f=1 TO 3 

330 LET s=s + t(f,c) 
340 NEXT f 

350 NEXT c 

360 PRINT “suma total=",s 


3. IMPRESION DE UNA FILA ELEGIDA POR EL USUARIO 


400 INPUT “fila deseada? ”;f 

410 IFf<1 OR f>3 THEN GOTO 400 
420 CLS 

430 FOR c=1 TO 4 

440  — PRINT TAB (5xc);t(f,c) 

450 NEXT c 


4. ALTERACION DEL CONTENIDO DE UNA DETERMINADA CASILLA 


500 INPUT “casilla? (fila y columna) ”;f,c 

510 INPUT “nuevo dato? ”;d 

520 LET t(f,c)=d 

530 INPUT “ya está. Algún cambio más? (s/n)”;a$ 
540 IF a$ ="s" THEN GOTO 500 


MATRICES TRIDIMENSIONALES NUMERICAS 


Recuerda el cubo de Rubik, donde podemos localizar cada cubito elemental con tres coor- 
denadas: fila, columna, y una tercera de fondo. Si cada cubito elemental(celda de memoria) con- 
tiene un dato, tendríamos una matriz tridimensional numérica. En este caso sería de dimensio- 
nes 3x3x3, pero, como es lógico, pueden ser otras. 

El formato de dimensionado sería: 


DIM M(a,b,c) 


donde a, b y c representan las tres dimensiones. 

El número de celdas de memoria que reserva el ordenador es axbxc. 

El llenado debe hacerse con tres instrucciones FOR -NEXT anidadas. 

Como la visualización sólo es posible, como máximo, en dos dimensiones, sugerimos hacerla 
en «hojas» de pantalla. 
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MATRICES MULTIDIMENSIONALES NUMERICAS 


Aumentando en una dimensión las matrices anteriores llegaríamos alas tetradimensionales, 
difíciles de imaginar. Por extensión, añadiendo nuevas dimensiones, tenemos las matrices n-di- 
mensionales. 

Una aplicación de interés es la ordenación de números. El siguiente programa ordenalos da- 
tos, introducidos por teclado, en orden creciente: 


10 INPUT “cuántos números vas a ordenar?”;n 
20 DIM l(n):DIM z(n) 
30 FOR ¡=1 TO n: INPUT z(i) 
40 — LET 1(1)=2(1): NEXT i 
50 FOR i=1 TO n-1 
60  FORj=1 TO n-i 
70 IF 1(¡) <1(¡+1) THEN GOTO 110 
80 LET x=1() 
90 LET 1()=1(1+1) 
100 LET I(¡+1)=x 
110 NEXT j 
120 NEXT ¡ 
130 PRINT “NUMERO”;TAB 10;“CRECIENDO”;TAB 20; 
“DECRECIENDO” : PRINT 
140 FOR i=1 TO n 
150 — PRINT z(i);TAB 14;1(i);TAB 24;l(n>+1-i) 
160 NEXT ¡ 


En la línea 30 seintroducen los datos, llenándose la matriz z. Enla 40 se hace un duplicado de 
la matriz l, que es la que se va a ordenar. 

El procedimiento seguido es: dada una pareja de números, siestán ordenados se dejan así, y si 
no lo están, se invierten sus posiciones en la matriz 1. Esta inversión, cuando procede, se realiza 
en las líneas 80,90 y 100, utilizando una variable auxiliar, x. La primera vez que se termina el bu- 
cle de laj, el número más grande está colocado al final de la lista. La segunda vez, el número más 
grande de los restantes está colocado en el penúltimo lugar. Y así sucesivamente. 

Sean los números introducidos: 2-8-6-5-3-1,por este orden. Los sucesivos pasos realizados 
por el ordenador son: 


PARA VARIABLE ¡=1 
PARA ¡=1 28 
¡=2 268 
j¡=3 2658 
¡=4 26538 


j¡=5 26531 (8) 


PARA VARIABLE ¡=2 


PARA j¡=1 26 
¡=2 256 
¡=3 2536 
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PARA VARIABLE ¡=3 


PARA ¡=1 25 
j¡=2 235 
¡=3 231 


PARA VARIABLE ¡=4 
PARA ¡=1 


23 
¡=2 21 (8) 


PARA VARIABLE ¡=5 
PARA ¡=1 1 


quedando finalmente la matriz l así: 
1-2-3-5-6-8 


Por el bucle de la 140 se imprimen la matriz z, que es la original, la matriz | de principio afin, y 
la matriz | del fin al principio (quedando así también por orden decreciente). 


MATRICES ALFANUMERICAS 


Si necesitamos almacenar y procesar una lista de cadenas usaremos matrices alfanuméricas. 
Su tratamiento es análogo al de las numéricas, excepto en su dimensionado. 
Este tipo de matrices también puede ser bidimensionales, tridimensionales... 


DIMENSIONADO DE MATRICES ALFANUMERICAS 


Cada carácter de una cadena ocupa una posición de memoria. Por lo tanto, el ordenador ne- 
cesita saber, no solamente el número de cadenas a almacenar, sino también la longitud. Esto se 
pone de manifiesto en el formato de dimensionado, que es: 


n.l. DIM a$ (nl) 


donde n es el número de cadenas y l es el número de posiciones de memoria a reservar por cada 
cadena. 

El ordenador, cuando pasa por esta instrucción reserva un total de nX] posiciones de memo- 
ria, inicializándolas todas con el carácter en blanco. 


CADA CARACTER OCUPA 
1 BYTE DE MEMORIA! 
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Ahora podemos llenar la matriz con cadenas, con la ayuda de un bucle. Luego, si es preciso, 
vendría un tratamiento de la matriz. 

Ahora bien, cada vez que te refieras a una cadena de la lista sólo debes especificar la posición 
que ocupa (entre paréntesis), sinindicarla longitud. Por ejemplo, para leerlos días dela semana y 
almacenarlos en la matriz SS, sería: 


10 DIM S$(7,9) 
20 FORi=1 TO 7 
30 READ S$(i) 
40 PRINT S$(i) 
50 NEXT ¡ 
700 DATA “lunes”, “martes”, “miércoles”, “jueves”, 


”. 4u 


“viernes”, “sábado”, “domingo” 


Si en el dimensionado hubiésemos puesto: 
DIM S$ (7) 


el ordenador sólo guardaría el primer carácter de cada cadena. 

Como lo normal es que la longitud de las cadenas sea diferente, hay que procurar que el di- 
mensionado cubra la de mayor longitud. Ahora bien, como esto supone que habrá espacios de 
memoria que no se van a llenar (quedando inutilizados), se debe hacer una optimización en el di- 
mensionado. Esto supone cortes en las cadenas más largas, pero compensa. 

En el ejemplo anterior, con un dimensionado SS(7,9), la matriz alfanumérica queda: 
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Mientras que con un dimensionado DIM SS(7,3), queda: 


Si imaginamos que las cadenas están agrupadas en filas y columnas, tendríamos una matriz 
alfanumérica bidimensional. Habría que dimensionarla con el formato siguiente: 


nl. DIM B$(m,n,l) 


donde m es el número de filas, n es el número de columnas y l es la longitud reservada a cada ca- 
dena. 

Así, sinos imaginamos que hay una persona encargada por cada día de la semana de determi- 
nada tarea, y cuyos nombres son: 


JUAN 
ANDRES 
ALEJANDRO 
HORACIO 
FRANCISCO 
LUIS 
ANTONIO 


el dimensionado para almacenar días y nombres sería: 
DIM S$(7,2,9) 
reservando 9 posiciones para cada cadena. 
La secretaría de un Instituto recibe una lista con los nombres de diez alumnos y su correspon- 


diente número de matrícula. Necesita un programa que ordene alfabéticamente estos nombres, y 
los imprima con su número de matrícula. También debe poner el número de orden. 


90 


El programa podría ser el siguiente: 


10 DIM A$(10,17):DIM M(10) 
20 FOR ¡=1 TO 10:READ A$(i):READ M(i):NEXT i 
30 FORj=1 TO 9 
40 FOR k=j+1 TO 10 
50 IF AS(¡<AS$(k) THEN GOTO 120 
55 REM ordenación de cadenas 
60 X= A$Ij) 
70 AS$(¡) AS 1k) 
80 A$(k)=X 
85 REM ordenación de números 
90 c=M(j) 
100 M(j)=MIk) 
110 M(k)=c 
120 NEXT k 
130 NEXT j 
135 REM bucle de impresión 
140 PRINT “N” ; TAB 4;“matrícula”;TAB 22;“nombre” 
150 FOR n=1 TO 32:PRINT “-”;: NEXT n 
160 FOR ¡=1 TO 10 
170 PRINT¡;TAB 6;M(i);TAB 14;A$(i) 
180 PRINT : NEXT ¡ 
1000 DATA “Peláez,Alicia”, 243,"Gómez,Juan”,58,“Fernández,Luis”,125,“Jiménez,Andrés”,83 
1050 DATA “Corrales,Ana”,723,“Rey,Josefa”,2,“Ruiz,Antonia”,321,“Jaro,Pedro”,579,"Delgado,Beatriz”, 
424,"Munoz,Mercedes”,624 


Comentarios 


El dimensionado se hatomado para un máximo de 17 caracteres/nombre. Después dela lec- 
tura, empieza la ordenación en la línea 30, por un procedimiento análogo al visto anteriormente. 
Esta ordenación coloca la cadena menor al principio de la matriz AS, y asísucesivamente. Fíjate 
que al mismo tiempo que se va ordenando la matriz A se va ordenando la M. 

Las líneas DATA están formadas por parejas nombre -matrícula, ya que éste es el formato 
del bucle de lectura. 

Te proponemos que mejores el programa, de forma que admita un número N de alumnos. A 
su vez, esto se puede hacer de dos formas: 

a) con NÑ dado por INPUT, 

b) con una lectura previa de datos, para averiguar cuántos hay. 


PROGRAMAS 


1. Introduce en una matrizlos precios decinco cerealesalo largo de tres años consecutivos. 
Realiza el programa que saque una tabla con el nombre de estos productos, sus respectivos pre- 
cios, y la media durante ese período. 

2. Elordenador genera y almacena 100 números de 1.000 al 7.000. Después de visualizar- 
los, te dice al mayor de ellos, el menor y la posición que ocupan en la lista. 
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3. Hallar la desviación típica de los 100 números de la tabla anterior. 

4. Elordenador genera 50 números del -500 al +500. Te ha de contar cuántos han salido 
negativos, y cuántos positivos. 

5. El ordenador genera ceros y unos, en total de ellos 125. La probabilidad de generar un 
cero ha de ser 0,4 y la de generar uno ha de ser 0,6. Calcula la frecuencia relativa de ceros y de 
unos, que se debe aproximar a las respectivas probabilidades. 

6. Elordenador genera y almacena las temperaturas medias a lo largo de un año. Deberán 
estar comprendidas ente 10” bajo cero y 30”. Después te imprime cuántos días han estado con 
una temperatura media: 

— entre -10 y 0, 

— entre 0 y 10, 

— entre 10 y 20, 

—-:Enfre 20y:30. 

7. Se introducen por teclado dos matrices de dimensiones 33. 

El ordenador: 

a) las suma, 

b) las resta, 

c) las multiplica. 

8. En las matrices anteriores, hallar sus determinantes. 


9, El ordenador de una revista del motor tiene almacenados un determinado número de 
marcas, modelos y sus precios respectivos. Se pretende hacer un programa que permita respon- 
der a las siguientes preguntas: 

a) marca y modelo del más caro, 

b) marca y modelo del más barato, 

c) precio medio de determinada marca, 

d) modelos de una determinada marca, 

e) modelos cuyo precio está entre dos límites. 


10. Considera un tablero de 8x8 casillas, donde el ordenador sitúa aleatoriamente un 
barco de 4 casillas. Tienes 10 disparos para intentar hundirlo. El ordenador te dibuja en la posi- 
ción de disparo una X si has acertado, o un 0 si has hecho agua. El disparo se especifica con las 
coordenadas A-H y 1-8. Cada vez que hagas un impacto, sete concede un disparo más. Si no lo- 
gras hundir el barco, el ordenador te ofrece volver a intentarlo. 


11. Vamosasimular un juego de bingo para dos jugadores. Elordenador pregunta el nom- 
bre de las dos personas y genera para cada una de ellas su respectivo cartón (15 números sin re- 
petir, del 1 al 99). Asigna a cada jugador una zona de la pantalla, figurando en ella el nombre y 
números del cartón de cada jugador (en columna). Se simula la extracción de las bolas. Cada 
número acertado, deberá ser tachado en pantalla. El nombre del ganador es indicado clara- 
mente. 

12. Setiran dos dados 80 veces. El ordenador te va dando los resultados, y al final de las ti- 
radas cuenta el número de veces que ha salido cada suma (de 2 a 12). 


13. Amplía el programa anterior, de forma que salga el correspondiente diagrama de ba- 
rras de la suma de dados. 

14. Unjuego de dados consiste en lo siguiente: el jugador tiene derecho a seguir tirando el 
dado mientras obtenga una puntuación igual o superior a la precedente. En otro caso, pasa el 
dado al siguiente jugador. Gana el jugador que obtenga mayor suma de las puntuaciones. 

El ordenador pedirá número y nombre de jugadores. Después pide al primero de ellos que 
pulse una tecla, que simulará un lanzamiento. Sale en pantalla el resultado, y, cuando finaliza este 
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jugador, su suma total. Se repite el proceso con el jugador número 2, y asísucesivamente. Al final 
aparece el nombre del ganador. 

15. Imagina que eres el último apostante en una carrera deseis caballos. Elordenadorleeel 
nombre de éstos de una línea DATA, y asigna aleatoriamente a cada uno de ellos la cantidad 
apostada hasta ese momento, comprendida entre 5.000 y 100.000 pesetas. Imprime esto en pan- 
talla y te pregunta tu caballo ganador y cuánto apuestas. Contigo se cierran las apuestas. 

Se genera con igual probabilidad el caballo ganador, y si aciertas se te da el premio con el si- 
guiente criterio: se dividetodo lo apostado entre la cantidad total apostada al caballo ganador. El 
70% de esta cantidad se multiplica por lo que apostaste, lo cual ya da la cantidad a recibir. 

16. Análogo al anterior, en donde la probabilidad de ganar cada caballo viene dada por un 
pronóstico, que se introduce con INPUT para cada caballo (la suma de todas estas probabilida- 
des debe dar la unidad). 

17. Programa el juego de las siete y media entre tú y el ordenador. 

18. Programala generación y almacenaje delas 40 cartas de la baraja española, ordenadas: 

19. Enelprogram anterior, el ordenador elige cinco cartas. Analiza si hay pareja (parejas), 
trío O poker. 

20. Tújuegas contra el ordenador a la carta más alta (ambas cartas son generadas por él). 

21. Análogo al 17, pero las cartas deben almacenarse desordenadas. 

22. Vamosacombinarlosdosprogramasa anteriores delaformasiguiente: el ordenador te 
pide un número del 1 al 40, lo que va a equivaler a sacar una carta del mazo desordenado. Te 
muestra la carta correspondiente, y luego elige otra el ordenador. Gana la carta más alta. 

23. El ordenador reparte seis cartas a tantos jugadores como desees. 

24. Enelprograma anterior, el ordenador suma la puntuación obtenida por cada jugador, 
con el baremo siguiente: 

AS=11,, TRES=10 ,, REY=4 ,, CABALLO33 ,, SOTA=2 

25. Elordenador vaa rellenarte una quiniela de n columnas, siendo n un número dado por 
INPUT. Te genera la primera columna con igual probabilidad para el 1,la X y el 2, y tela muestra. 
Te pregunta si te gusta, y en caso afirmativo deberá almacenarla.Sino, genera otra. Y asícon las n 
columnas. 

Llega el domingo, y le introduces la quiniela ganadora. El ordenador te cuenta los aciertos de 
cada columna almacenada. 

26. Igual que el anterior, donde el ordenador genere cada columna con tantos unos, equis y 
doses como desees (aproximadamente). 

27. Igual que el 24, pero el pronóstico de cada partido se hace con el criterio siguiente: para 
cada partido, el micro te pregunta los puntos de cada equipo. El pronóstico se hará teniendo en 
cuenta estos números. 

28. Igual que el anterior, pero el pronóstico se ajustará a otras variables que puedas imagi- 
nar (jugar en campo ajeno, goles obtenidos por cada equipo, número de veces que un equipo ha 
ganado al otro, etc.). 

28. Vamosasituarlas 27 celdas del cubo de Rubik números aleatorios, comprendidos en- 
tre el 50 y el 100. Realiza el programa que permite visualizar: 

a) el contenido de esta matriz, por «pisos», 

b) la suma de las celdas de cada piso, 

c) la suma de las celdas de cada diagonal (son 4 !). 

30. Supón un patio de butacas de un minicine, formado por 20 filas, y 28 asientos por fila, 
separados por un pasillo central. Representaremos una butaca ocupada por un 1, y por un O si 
está vacía. En un determinado momento están ocupadas 200 butacas. Visualiza en pantalla con 
ceros y unos el estado del patio de butacas en este momento (el llenado se hará aleatoriamente). 
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31. Mejora el programa anterior, considerando que a partir de este momento te haces 
cargo de la taquilla. Se le dan al ordenador los datos siguientes: número de entradas y número de 
fila que quiere el cliente. Si hay sitio para ponerles juntos, se venden estas localidades, y se ve en 
pantalla la ocupación (con unos). Si no hay sitio en esa fila el ordenador solicita otra, y les coloca 
ahí. Y así sucesivamente. En cada momento aparecerá en pantalla el número de localidades que 
quedan por vender. 

32. Vasa confeccionarte tu agenda telefónica, donde figura nombre, primer apellido y 
número de teléfono de las personas que conoces. Realiza el programa que ordene alfabética- 
mente tu agenda por el nombre o por el apellido, a voluntad. 

33. Tienes ya hecha tu agenda telefónica. Quieres llamar a Luis, pero tienes varios amigos 
que se llaman Luis. El programa te visualiza todos éstos, con su correspondiente número telefó- 
nico. Si no hubiera ninguno, da un mensaje (Luis ha sido un ejemplo). 

34. Dimensiona y llena completamente una matriz de 13x13 con los símbolos +,£,S, de 
forma aleatoria y equiprobable. Visualizala en pantalla tal como la llenó. 

35. Vamos a confeccionar una historia ficticia de un individuo entresacando un dato al 
azar de cada una de las matrices siguientes, que llenarás previamente: 

— signos del Zodíaco (12), 

— provincias de la Comunidad Castilla-La Mancha (5), 

— profesiones (las que quieras). 

36. Utilizando una de las matrices del programa anterior, reordénala por palabras de me- 
nor a mayor longitud. 

37. Almacenado un colectivo de individuos por su nombre, edad, estado civil e ingresos, 
realiza el programa que permita sacar en pantalla los individuos que tengan determinada edad o 
determinado estado civil. 

38. Supón queen tu casa tienes un terminal del upetmiciado y vas a hacerla compra dela 
semana desde tu casa. Inicialmente, el ordenador te presenta en pantalla los siguientes grupos: 


1. legumbres y hortalizas, 


2. carnes, 
3. frutas, 
4. vinos. 


Una vez elegido el grupo, te presenta los siguientes productos de cada grupo, con su corres- 
pondiente precio: 


GRUPO 1: 1—lentejas, 150 ptas./Kg. 
2—garbanzos, 130 ptas./Kg. 
3—lechuga, 80 ptas./unidad. 
4—tomates, 90 ptas./Kg. 

GRUPO 2: 1—ternera, 850 ptas./Kg. 
2—vacuno, 610 ptas./Kg. 
3—cerdo, 440 ptas./Kg. 

GRUPO 3: 1 —fresas, 160 ptas./Kg. 
2—manzanas, 80 ptas./Kg. 
3—naranjas, 85 ptas./Kg. 
4—plátanos, 120 ptas./Kg. 
S5—peras, 135 ptas./Kg. 

GRUPO 4: |—vino blanco, 65 ptas./litro. 
5—vino tinto, 70 ptas./litro. 
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Eliges el correspondiente producto, y su cantidad. Después, el ordenador te da la posibilidad 
de elegir otra cosa. Cuando no quieras más, te hace la nota. 

Inicialmente el ordenador del supermercado se identificará, y a su vez te pedirá el número de 
la tarjeta de crédito a la que se carga el importe de la compra. Si el importe sobrepasa 35.000 
ptas., la compra no se puede realizar. 
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TEMA 11 
SUBRUTINAS 


nn 3 
qe l 
PREGUNTA 15 
OM Ze Llama *=L Lierao de Los 

recorda “7 
RESPUESTA 1 AMNDAR TO 
FALLO. ITIntentalo de noizwvo 
RESPUESTA Z : SUTIMHNMHESS=S 
CORRECTO, 
Pontouacion media : 5,2 
Gnierez Se Januir (Ss: n) 7? 
e 
A ARA A EA se 


PROGRAMA N/. 1. 


INTRODUCCION. VENTAJAS 


En ocasiones, el contenido de un determinado número de líneas juntas de programa se vaa 
tener que repetir varias veces, a lo largo del listado. Para evitar esta repetición están las subruti- 
nas. La subrutina es el paquete de líneas de programa que se repiten. Este paquete conviene nu- 
merarlo en una zona fuera del cuerpo principal del programa. Para la ejecución de la subrutina, 
existe un procedimiento de llamada, y retorno al programa principal. 

Las ventajas que se derivan de su utilización son: 

1.—Menor tiempo de introducción de programa. 

2.—Ahorro de memoria RAM. 

3.—Más fácil seguimiento del programa. 

No obstante, la utilización de las subrutinas no es recomendable en todos los programas por 
razones que verás tú mismo. 
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SENTENCIAS: GOSUB- RETURN 
La llamada a la subrutina, tantas veces como quieras, se realiza mediante la instrucción: 
n.l. GOSUB (n* de línea del comienzo de subrutina) 


Forzosamente, la subrutina deberá terminar con la sentencia RETURN, a secas. Cuando la 
ejecución del programa se encuentra con esta sentencia, el control se transfiere a la línea si- 
guiente de aquel GOSUB. 

Un esquema de utilización sería el siguiente: 


10 
15 
200 0. 
25 GOSUB 1000 
30 
yA 
90 STOP 
1000 
1010 ... 
1020 RETURN 


El siguiente programa está optimizado con la utilización de una subrutina. Tras introducir un 
número, analiza si es positivo, nulo o negativo. Esto se hace para 10 números. 
Calcula su media y la analiza igualmente. 


10 LET s=0 
20 FOR i=1 TO 10 
30 INPUT a 
40  PRINT a, 
50  GOSUB 1000 
60 LET s=s+a 
70 NEXT i 
80 LET m=s/10 
90 LETa=m 
100 PRINT “MEDIA=";m, 
110 GOSUB 1000 
120 STOP 
1000 IF a>0 THEN PRINT “ES POSITIVO” 
1005 IF a=0 THEN PRINT “ES NULO” 
1010 IF a<0O THEN PRINT “ES NEGATIVO” 
1020 RETURN 


El cambio de la línea 90 es preparatorio para la subrutina, ya que ésta sólo trabaja con la va- 
riable a. Observa que de no haber seguido este procedimiento hubieras necesitado repetir las lí- 
neas 1000-1005 y 1010 tras la obtención de la media m. 
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Observaciones 


— Se puede acceder al paquete de la subrutina no solamente a través del comienzo de la 
misma (como sucede necesariamente en bucles), sino en cualquiera de sus líneas. 

— Cada vez que uses una subrutina, debe ejecutarse el correspondiente RETURN; de lo 
contrario, el programa podría interceptar otro RETURN, mandando el control a una línea no 
deseada. 

— Una subrutina puede llamar a otra (subrutinas encajadas). Como hay dos GOSUB, tiene 
que haber dos RETURN. Por extensión, análogo si son más de dos. El esquema sería: 


10 
15 
20 
90 
1000 
1005 
1010 
1015 
1020 
1030 
2000 
2100 
2200 


GOSUB 1000 

STOP 

GOSUB 2000 

IF x—a THEN GOSUB 2000 


RETURN 


RETURN 


Vemos otro programa, utilizando subrutinas encajadas. Es un sencillo test de 5 preguntas de 
cultura general. Es de respuesta única, y al final te dice los aciertos. 


10 

20 

30 

40 

50 
100 
110 
120 
130 
140 
150 
160 
200 
210 
220 
500 
510 
520 
600 
610 
620 


DATA “qué emperador reinaba cuando nació Cristo?”, “Augusto” 
DATA “en qué año se llegó a la luna?”, “1969” 
DATA “cuál es la provincia más grande de España?”, “Badajoz” 
DATA “qué científico español descubrió el ADN?”, “Ochoa” 
DATA “qué nombre recibe la unidad de información más simple, en informática?”, “bit” 
let s=0 
FOR ¡=1 TO 5 
READ p $:PRINT p$ 
READ r $ 
INPUT a $ 
IF a $=r $ THEN GOSUB 500:GOTO 200 
GOSUB 600 
NEXT ¡ 
PRINT “PUNTUACION SOBRE 5: ”;s 
sTOP 
PRINT “acertaste !” 
LET s=s+1 : GOSUB 1000 
RETURN 
PRINT “No es correcto.” 
PRINT “La respuesta es ”;r $ 
GOSUB 1000 
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530 RETURN 
1000 PRINT AT 15,0;"QUEDAN ”;5-i;” preguntas” 
1010 PRINT AT 18,9;”“pulsa una tecla” 
1020 PAUSE O:CLS 
1030 RETURN 


Observa que, tanto si aciertas como si no (rutinas 500 y 600, respectivamente), el programa 
pasa por la subrutina 1000. 


DIRECCIONAMIENTOS MULTIPLES DE PROGRAMA 


A veces interesa que el control del programa pase a una subrutima u otra, dependiendo del 
valor que tome una cierta variable. Para ello se utiliza la sentencia ON, cuyo formato es el si- 
guiente: 


n.!. ON (variable) GOSUB  n.l.,n.l.,n.l.,... 
Como ejemplo, podríamos tener: 
70 ON x GOSUB  900,435,1200,1234 


Alllegar a la línea 70, la variable x ha de tener algún valor. Si es 1, el programa ejecuta la pri- 
mera subrutina, que comienza en la línea 900.Sies 2, ejecutala segunda subrutina, y asísucesiva- 
mente. 


Observaciones 


— Six fuese un valor no entero, el ordenador toma su parte entera de cara aesta instrucción. 

— Si el valor de x supera al número de subrutinas que siguen a GOSUB (4 en nuestro ejem- 
plo) no se ejecuta ninguna de ellas y el programa pasa a la línea siguiente. 

— Paraordenadores que no posean esta instrucción, se puede sustituir de dos formas distin- 
tas: 

a) De forma análoga a como se hizo en la pág. 70 para el GOTO. 

b) Almacenando en una lista ordenadamente según la variable. 


En nuestro ejemplo, previo dimensionado de la matriz a, 


LET a(1)=900 
LET a(2)=435 
LET a(3)=1200 
LET a(4)=1234 
70 1F x>1 AND x<4 THEN GOSUB a(x) 


Todo lo dicho en este apartado es igualmente válido para la sentencia 
ON x GOTO n.l.,n.l.,n.l..... 
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PROGRAMAS 


1. Mejorael programatest de 5 preguntas de cultura general puesto como ejemplo comen- 
tado en este tema de modo que admita otra respuesta, caso de fallar la primera. La puntuación 
sería entonces: 

— Acierto en la primera... 10 puntos. 

— Acierto en el segundo intento... 4 puntos. 

Al final debe dar la puntuación obtenida. 

2. Setrata de llenar una fila o una columna (a voluntad) con un carácter elegido por el usua- 
rio. Asimismo se puede elegir el número de fila o columna a imprimir. 

3. Una guía del ocio electrónica dispone de información sobre: 

— cines, : 

— teatros, 

— salas de fiesta. 

Una vez elegido del menú el local deseado, aparece una información complementaria de 
transporte hacia ese local, que consta de: 

— autobuses que conducen al mismo, 

— línea de metro y parada correspondiente, 

— teléfonos de radio- taxis. 

4. Unperiódico informatizado de ámbito nacional tiene las siguientes secciones y subsec- 
ciones: 


A-POLITICA  — Mternacional 
— nacional 

B-ECONOMIA 

C-DEPORTES 7 fútbol 


— actualidad deportiva 


— TV 
D-PASATIEMPOS  — juegos y crucigamas 
— horóscopo 


Se elige la información deseada, y se visualiza en pantalla, con posibilidad de volver al menúa 
su término. 

5. Un grupo de turistas españoles viaja a un país cuya moneda nacional tiene «céntimos», 
que llamaremos centavos. El micro solicita (una sola vez) el nombre de esa moneda y el cambio 
oficial de la misma, en pesetas. Cada turista pulsa el dinero que desea cambiar, y el ordenador 
contestará cuántas monedas y centavos le corresponden. 

6. Lafamilia Martínez está compuesta de padre, madre, un niño, una niña y suegra. Su mé- 
dico de cabecera va a introducir en su fichero del ordenador los datos médicos de cada compo- 
nente de la familia, que son: 

— fecha nacimiento, 

— peso, 
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— grupo sanguíneo, 

— enfermedades padecidas. 

El programa debe ser tal que posibilite al médico la etitación de la ficha médica de cual- 
quier miembro de la familia. 

7. Mejora el programa anterior, de modo que visualice los miembros de la familia en la or- 
denación deseada: 

a) por edad, de mayor a menor, 

b) por peso, de menor a mayor, 

c) alfabéticamente. 

8. Unempleado de un cine se coloca a la salida del mismo el día del estreno de una película 
para realizar la siguiente encuesta: edad, número de distrito donde vive (sies de fuera dela locali- 
dad no se procesará este dato), y si le gustó la película, le dejó indiferente o nole gustó. Tras la re- 
cogida de datos, se han de obtener los resultados siguientes: 

1) N.deespectadores comprendidos en cada uno delos siguientes bloques de edades: me- 
nores de 20 años, entre 20 y 40, mayores de 40 años. 

2) De qué distrito de la ciudad han venido más espectadores, y de cuál menos. 

3) La edad a la que tiene más aceptación la película entre los asistentes. 
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TEMA 12 
GRAFICOS, COLOR Y SONIDO 


PROGRAMA N 3-g, PARA a=1 y a=-2.5 (GRAFICA AMPLIADA). 


ALTA RESOLUCION. EL PIXEL. SENTENCIA: PLOT 

Imagina que el espacio que ocupa un carácter se divide en una cuadrícula de 8 x 8. Cada uno 
de estos nuevos cuadritos se llama «pixel». Vamos a ver instrucciones de dibujo que manejan es- 
tos pixel. ? 


Para un ordenador que tuviera 22 filas y 32 columnas, el número de pixel disponibles sería: 


22 * 8 = 176 en vertical, y 
32 x 8 = 256 en horizontal. 


Es decir, el número total de pixel es 45056. 
La impresión de un pixel se realiza mediante la sentencia PLOT, que sigue el formato: 


n.l. PLOT x,y donde 
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x e y son las coordenadas matemáticas del pixel, cuyo origen está en el ángulo inferior izquierdo 
de la pantalla. El primer pixel es el (0,0), por lo que la numeración es: 

— coordenada x: de O a 255, inclusive. 

— coordenada y: de O a 175, inclusive. 


Como ejemplo, dibujemos, punto a punto, una recta vertical cuya abscisa es a elección: 


10 INPUT “abscisa de la recta? ";x 
20 FOR y=0 TO 175 
30 PLOT x,y : NEXT y 


También se puede dibujar una circunferencia PLOT a PLOT, de radio a elección: 


10 INPUT “radio ? ”;r:IF r>87 THEN GOTO 10 
20 FOR a=0 TO 2xPI STEP Pl/36 

30  LETx=r * COS a: LET y=r*SIN a 

40 PLOT x+127,y+87 

50 NEXT a 


La línea 20 hace el barrido del ángulo, de 5 en 5 grados. Mediante las razones trigonométri- 
cas de este ángulo (variable a) se obtienen las coordenadas x e y: 


(y) 
OQ) yerisena 


Si la línea 40 fuera PLOT x,y, sólo se observaría el primer cuadrante de circunferencia. Por 
eso hemos trasladado el centro de la circunferencia al punto 127,87. 


Observación importante 


En el Spectrum se da la particularidad de que si las coordenadas del pixel están fuera de la 
pantalla, hay dos posibilidades: 

— Detención del programa, si el pixel está por encima o derecha de los límites de pixel. 

— Rebote (dibujo simétrico), caso de la pared izquierda o inferior. 

Prueba la primera posibilidad cambiando la línea 40 por PLOT x+155,y+140, con radio 50. 

Prueba la segunda posibilidad cambiándola a PLOT x+155,y+20, con radio 50. 

En el resto de micros simplemente no se ve el PLOT, 
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SENTENCIA: DRAW. POSIBILIDADES 


Esta sentencia de dibujo, se usa bajo uno de los formatos siguientes: 
primero: n.l. DRAW a,b 
segundo: n.l. DRAW a,b,c 


Con el primero se dibuja una línea recta que empieza en el último punto dibujado (con PLOT 
o DRAW) cuya proyección sobre el eje x es a, y sobre el y es b. 
El siguiente programa dibuja un triángulo rectángulo: 


10 PLOT 50,50 

20 DRAW 0,100 

30 DRAW 150,-100 
40 DRAW -150,0 


Dependiendo dela resolución del micro, teencontrarás que las líneas casi horizontales o casi 
verticales aparecen «escalonadas». 


1 REM RAYAS ALEATORIAS 
3 REM Y BORRADO CON INVERSE 
5 INPUT “NUMERO RAYAS?”; N 
10 DIM M(N): DIM V(N) 
15 LET M=50: LET V=50 
20 FOR I=1 TO N 
25 LET X=M: LET Y=V 
30 LET M=INT (RDNx*255) 
35 LET V=INT (RDN*175) 
40 LET M(I)=M: LET V(I)=V 
45 PLOT M,V 
50  DRAW X-M;Y-V 
55 NEXT | 
60 PAUSE O 
65 LET M=50: LE V=50 
70 LET X=M: LET Y=V 15 RAYAS 
75 FOR I=1 TON 
80 IF 1>1 THEN LET X=M(I-1): LET Y=V(1-1) 
85 PLOT M(1);V(I) 
90 PLOT M(l),V(I) 
95 DRAW INVERSE 1;X-M(1),Y-V(1) 
100 NEXT | 


Usando el segundo formato se dibuja un arco de circunferencia cuyo incremento según el eje 
xesa, según el eje yesb y cesel ángulo girado, quese debe expresar en radianes. Ahora bien, para 
unos valores dados de a y b, el giro puede hacerse en un sentido o en otro. Si c es mayor que O, se 
gira hacia la izquierda, y hacia la derecha si c es negativo. 
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El siguiente programa dibuja la media luna. 


10 PLOT 50,50 
20 DRAW 50,50,P1/3 
30 DRAW -50,-50,-Pl 


Dibujemos ahora los álabes de una turbina, tantos como quieras: 


10 INPUT “número de álabes ?”; n 

20 FOR i=0 TO 2 Pl STEP 2xPl/n 

30 PLOT 127,87 : DRAW 70x*C0OS ¡,70x*SIN ¡,P1/2 
40 NEXT ¡ 


NOTA: En los PC es necesario disponer previamente PI=3,1416. 


SENTENCIA CIRCLE 


Dibuja circunferencias, bajo el formato: 
n.l. CIRCLE x,y,r donde 


x,y son las coordenadas del centro y r es el radio. 
Vamos a ver dos ejemplos de construcción de circunferencias sucesivas: 


10 REM CIRCUNFERENCIAS CONCENTRICAS 
20 INPUT “número de circunferencias ? ”;n 
30 FORi=1 TO n 

40 CIRCLE 127,87,8x*i¡ 

50 NEXT ¡:STOP 


20 REM CIRCUNFERENCIAS CONTIGUAS 
30 INPUT “número de circunferencias ? ”;n 
40 FORi=1 TO n 

50 CIRCLE 50+12+*x*i,60,20 

60: NEXT 1 


Observarás que siintroduces un número muy grande, se detiene el dibujo al llegar al borde de 
la pantalla. 


SENTENCIAS: INVERSE, OVER 
Estas sentencias van detrás de una de las instrucciones PLOT,DRAW,CIRCLE, siguién- 
dole un parámetro cuyos valores puedenser0ó 1.Cuandoes0, lasentenciano actúa, y cuando es 


1, queda en estado operativo. 
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Estas sentencias, respectivamente, sirven para borrado e inversión de dibujo (negro €) 
=> blanco), y tienen los formatos: 


n.l. DRAW(o PLOT o CIRCLE) INVERSE 1 
n.l. DRAW(o PLOT o CIRCLE) OVER 1 


Como ejemplo comparativo, mete el siguiente programa y fíjate en la forma de operar de 
cada una de estas sentencias: 


10 FOR i=10 TO 14 

20  PRINT AT ¡,5; “(MIN ” 

30 NEXT ¡ 

40 PAUSE 0 

50 PLOT 80,170:DRAW 0,-150 

55 PAUSE 0 

60 PLOT 130,170:DRAW INVERSE 1;0,-150 
65 PAUSE 0 

70 PLOT 180,170:DRAW OVER 1;0.- 150 


Veamos otro ejemplo, donde el parámetro de INVERSE va variando a lo largo del pro- 
grama. Es el dibujo de un cuadrado «respirando». 


10 DATA 3,3,31,31,127,87,1 
20 READ m,p,n,q,x,y,S 
30 INPUT “cuántas respiraciones ? ”;h 
40 FOR v=1 TO 2xh 
50 FOR u=m TO n STEP sx*2 
60 LET c=0:GOSUB 500 
70 PAUSE 8 
80 LET c=1:GOSUB 500 
90 LET x=x-s:LET y=y-S 
100 NEXT u 
110 LET m=u;LET n=px*(s=1) + qx*(s=-1):LET s=-s 
120 NEXT v 
130 STOP 
500 PLOT INVERSE e;x,y:DRAW INVERSE c;0.u 
510 DRAW INVERSE c;u,0 
520 DRAW INVERSE c;0,-u 
530 DRAW INVERSE c;- u,O:RETURN 


ATRIBUTOS DE PANTALLA: INK, PAPER, BRIGHT, FLASH. SENTENCIAS 
BORDER, INVERSE PARA CARACTERES 


Las sentencias PAPER e INK, seguidas de un número que especifica el color (de O a 7 en el 
Spectrum) colorean, respectivamente, el fondo de la pantalla y la «tinta electrónica» de escritura 


de caracteres y pixel. 
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Por ejemplo, si pusiéramos: 
n.l. CLS:PAPER 7:INK 2 


sobre fondo blanco escribiría con tinta roja. 

También se puede colorear el borde o marco de la pantalla con la sentencia BORDER, asi- 
mismo, seguida del número de color. 

En ordenadores como el Spectrum, se puede trabajar con dos tonos de brillo: normal 
(BRIGHT O) y el intenso (BRIGHT 1). Prueba: 


10 PRINT AT 7,2; BRIGHT 1; “INFORMATICA” 


La sentencia FLASH en su estado activado (FLASH 1) produce una especie de intermiten- 
cia intercambiando constantemente el color de la tinta por el papel, y viceverse. Prueba: 


10 PRINT AT 7,2;FLASH 1;“INFORMATICA” 


La sentencia INVERSE también sirve asociada a cadenas o variables alfanuméricas, para 
poder escribirlas con color invertido, es decir, con el color del fondo como tinta, y viceversa. 
Prueba: 


10 PRINT AT 7,2;INVERSE 1;”“INFORMATICA” 


Observaciones 


1. Entodas estas sentencias, el parámetro puede ser variable, dentro de los límites estable- 
cidos. 

2. EnelSpectrum, cuando uses estas sentencias con sentencias de dibujo, ten en cuenta que 
actúan sobre el carácter. 

3. Laacción delas sentencias BRIGHT, FLASH, INVERSE se anula al cambiar de línea o 
al colocar dos puntos. 


PRUEBA 


PRINT AT 0,2; NOMBRE 
PAPER 5,,, MERCEDES ,,, 


PRINT AT 2,18; "NOMBRE '; INK 5 
1 LOPEZ ,INK 3; "MERCEDES 


PRINT "MERCEDES LOPEZ ,, 
PAPER 1:INK 6: "ALCALA,1” 


SENTENCIAS: POINT, SCREEN $,ATTR 
La sentencia SCREENS identifica un carácter en una posición de pantalla. POINT hace lo 
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mismo, pero referido a un pixel. Y ATTR investiga determinadas cualidades (atributos) de esa 
posición. 
El formato del POINT es: 


nl. IFPOINT(x,y)=p THEN ... 


donde x,y son las coordinadas del pixel ainvestigar y pes el parámetro que puede ser0ó 1.SiesO, 
esa posición de pixel está vacía, y si es 1, está dibujada. 

Como ejemplo de utilización, dibujemos un conjunto de puntos aleatorios, y luego el POINT 
los busca, dando su posición cuando encuentra uno de ellos. 


10 INPUT “cuántos puntos quieres? ”;n 

20 FOR i=1 TO n 

30 PLOT 100*RND+150,50*RND : NEXT ¡ 
40 PRINT “X Y” 

50 FOR y=0 TO 50 

60 FOR x=15TO 250 


70 IF POINT(x,y)=1 THEN PRINT x;TAB 5;y 
80 NEXT x 
90 NEXT y 


Este otro ejemplo simula el relleno de una botella hasta la altura que quieras (menor que 70): 


10 INPUT “altura a llenar (< 70)”;1 

15 IFI>70 THEN GOTO 10 

20 PLOT 12,70:DRAW 0,-14:DRAW -7,-7:DRAW 0,-45 
30 DRAW 20,0:DRAW 0,45:DRAW -7,7:DRAW 0,14 
40 FOR y=0 TO 1 

50 FOR x=0TO 50 


60 IF POINT(x,y)=1 THEN PLOT x+1,y:IF POINT(x+2,y)=1 THEN GOTO 90 
70 NEXT x 
90 NEXT y 


Si quisiéramos investigar los atributos (es decir, color de tinta, color de papel, brillo y flash) 
debemos usar la sentencia ATTR, cuyo formato es: 


nl. IF ATTR (f c)=número THEN ... 


donde f,c son la fila y columna de la posición a investigar; número representa el conjunto de los 
atributos, obteniéndose con el siguiente criterio: 


COlOT dE EOÍA dis número de color (0-7) 
COJO FUE DAPA ria A AAA 8 veces el n.* color 
Drillo ACUVADO cerro nio 64 

tllo deSaca vado. normes 0 

HASH ACV O rasta cenicero sii 128 

HASTE ara lada tata 0 


realizándose la suma de los valores correspondientes. 
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Por ejemplo, tinta negra sobre papel blanco, sin brillo y con flash sería la suma: 
0+56+0+128= 184 


Si insertamos en el programa anterior la línea 120 IF ATR(v,h)=184 THEN PRINT AT v,h; BRIGHT 
1;a$:GOTO 90 


cada vez que la pelota se encuentre con el conjunto de atributos representados por el número 
184 imprime la estrella, pero con brillo. 

Te recalcamos que, al revés que con SCREENS, el ATTR sólo investiga los atributos de la 
posición, independientemente del carácter que hubiera en dicha posición. 

El formato de la sentencia SCREEN $ es: 


n.l. IF SCREEN $(f,c)=p$ THEN ... 


donde f,c son la fila y columna del carácter a investigar en la pantalla y pS es el carácter buscado 
(definido previamente). 

Es semejante a la sentencia POINT, pero referida a caracteres. Prescinde del análisis de los 
atributos de ese carácter (color, brillo, etc.). 

En el siguiente ejemplo, primero se dibuja un número de estrellas elegido por ti, distribuidas 
al azar por la pantalla. Después sale una pelota en la parte superior de la pantalla. Tras pulsar una 
tecla, avanza bajo un ángulo de 45”, rebotando en los extremos de la pantalla. En su recorrido por 
la pantalla, por la línea de programa 460 cada vez que se encuentre una estrella la hace relampa- 
guear. El programa es: 


20 LETa$="x" 
30 INPUT “cuántas estrellas ? ”;n 
40 FORi=1TOn 
50  PRINT AT RNDx21,RNDx*31;a$:NEXT i¡ 
60  LET x=1:LET y=1 
70  LET v=0:LET h=INT(RNDx*20) 
80 PRINT AT vh;”” 
90  —LET v=v+y:LET h=h+x 
100 IF h=0 OR h=31 THEN LET x=- x 
110 IF v=0 OR v=21 THEN LET y=-y 
130 IF SCREEN $(v,h)=a$ THEN PRINT AT v,h;FLASH 1;a$:GOTO 90 
140 PRINT AT v,h;“0” 
150 PAUSE 0 
160 GOTO 80 


SENTENCIA: BEEP 
Esta es la única sentencia de sonido que posee el Spectrum. El formato es: 
n.l. [BEEP't,f 


dondetes la duración del sonido, en segundos, y fes un número que da el tono del sonido (nota). 
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Las limitaciones de estos parámetros son: 


0<t<10 
-60<f<70 


Para referencia a compatibles, véase el APENDICE. 

Variando adecuadamente este par de parámetros puedes conseguir diversos efectos sono- 
ros. Por ejemplo, para hacer escalas conviene saber que el DO central del piano se corresponde 
con una figual a 0, y los sucesivos semitonos se obtienen aumentandolafde 1 en 1 (losanteriores, 
disminuyendo). Por lo tanto, si queremos variar la nota en una octava musical, variamoslafen 12 
unidades. 

El siguiente ejemplo da sonidos cada vez más graves y breves: 


10 FOR n=40 TO c STEP -1 
20 BEEP n/100.n : NEXT n 


Un programa que combina dibujo con sonido es: 


10 FOR x=0 TO 250 

20 LET y=-0.01x*xx*x + 2.5x*x 
30 PLOT x,y 

40 BEEP 0.01,y/3 

50 NEXT x 


PROGRAMAS 


1. Dibuja los ejes cartesianos en el centro de la pantalla. Después traza, una a una, las seis 
funciones trigonométricas, con una amplitud suficientemente grande. 

2. Dibujo de cónicas.—Te damos las ecuaciones de estas curvas en su forma más apta para 
la representación gráfica. Cuida que los valores de INPUT seanlos adecuados para quela gráfica 
no se salga de la pantalla. Son: 


CIRCUNFERENCIA: x=R cosa 
y=R : sena con INPUT R y STEP adecuado. 
ELIPSE: x=a-' cosa 
=b - cosa con INPUT a,b (STEP adecuado). 
HIPERBOLA: y = + b/a y x? - a? con INPUT a, b 
PARABOLA: y =ax?+bx>+c con INPUT, a,b,c 


Si lo crees conveniente, traslada la figura. 
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3. Representa las funciones siguientes: 


a) +4 b) x2-4 
y ye 
x-4 +4 
c) x-x+2 d) Ln x 
y- y= 
x Xx 
e e* sen x 
x Xx 
g) *+a 
y = SA , con INPUT a. Según que a valga: 
x?2+ax+1 


a>2, a=2,2>a>0,a=0, -2<a<0,, a=-2,, a<-2 
salen siete gráficas diferentes. 


4. Tomando u como parámetro, introduce las siguientes ecuaciones paramétricas, dibu- 
jando el micro la trayectoria: 
a) x= 10xu-120 ,, y=80x*C0OS u / SQR u 
u varía de 1 a 23, en intervalos de 0,1 
b) x= 0.7x+*uxu -16xu ,, y= 40x*C0OS u 
u varía de O a 29, de 0,1 en 0,1 
Cc) x= 4xux*COS u + 20 ,, y= 45*SIN u 
u varía de O a 12, con un paso de 0,1 


5. Laespiral tiene por ecuación, en polares, r=axt, (ten radianes). El programa para su di- 
bujo es el siguiente: 


10 INPUT “anchura canal ? ";a 

20 FOR t=0 TO 10xPI STEP 0.2 

30 LET r=axt 

40 LET x=rxCOS t : LET y= rx*SIN t 
50 PLOT x+127,y+87 

60 NEXT t 
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Basándote en la misma idea, construye las gráficas de: 
espiral logarítmica > r=A.eP"., con INPUT A,B 
trifolio  —>r=A.cos 3t,con INPUT A,B 
cardioide— r=A(1 + cos t),con INPUT A 
x= A(t sen t) 


cicloide — y= A(1 - cos t) ,con INPUT A 


6. Realiza la simulación de un tiro parabólico, con datos de entrada la velocidad inicial y 
ángulo de lanzamiento. 

7. Unaesfera de 4 unidades de PLOT va a moverse por la pantalla de izquierda a derecha, 
con una velocidad inicial nula, y una aceleración dada por INPUT. 

8. Dibujar un prisma triangular, una pirámide, un tetraedro y un octaedro, sucesivamente. 

9. Un sector circular queda definido con el radio, y el ángulo en radianes. Dibujar el sector 
que introduces, y dar el área. 

10. Mejorar el programa anterior, dando la posibilidad de que la bisectriz apunte en una de 
las direcciones N, S, E, O. 

11. Setrata de dibujar un triángulo equilátero de lado deseado. Además, la base ha de estar 
girada respecto a la horizontal un ángulo asimismo a voluntad. 

12. Representar un polígono regular de lados cualesquiera (sugerencia: empieza dibu- 
jando uno horizontal). 

13. Realizar el histograma circular de los datos de una estadística, por porcentajes. Debe 
hacerse de manera secuencial, es decir, tras dibujar un sector, se imprime la información corres- 
pondiente al mismo. 

14. Realizar el histograma de barras verticales coloreadas, con la sentencia PRINT AT. La 
longitud de cada barra será proporcional a los datos. 

15. Elmicrosolicitael volumen de ventas de unaempresa, mesa mes, de enero a diciembre. 
Utilizando un adecuado factor de escala, dibuja la gráfica «zig- zag» de estas ventas, colocando 
las iniciales de los meses en el eje horizontal. Al final debe aparecer una línea horizontal que in- 
dica la media anual de las ventas. 

16. Dibujar tantas líneas aleatorias como se quiera sin levantar el «lápiz», y luego borrarlas 
en el mismo orden que fueron generadas. 

17. Dibujar tantos rombos yuxtapuestos como se quiera. Idem para esferas. 

18. Tienes n cartas en la mano, abiertas en abanico. Dibújalas. 

20. Dibujar un sol con n rayos (INPUT n), siendo aleatoria la longitud de cada uno. 

21. Dibuja una bobina recta y otra toroidal. 

22. Introducida una palabra al ordenador, enmárcala de forma atractiva (sugerencia: 
como si estuviera en un pergamino, etc.). 

23. Dibuja el símbolo de la radiactividad. Asimismo, el de peligro de muerte (calavera con 
dos tibias). 

24. Simular el viaje de la tierra a la luna, de manera que figuren en pantalla la tierra y las su- 
cesivas posiciones del cohete y de la luna, en su giro alrededor de la tierra. Se pretende que el co- 
hete orbite ala luna, por lo que su trayectoria se asemeja a un 8. Has de prever que mientras el co- 
hete viaja hacia la luna, ésta también avanza. 

25. Hazuna pared de cubitos utilizando un algoritmo, que presente perspectiva (lazonano 
visible, punteada). 

26. Construye un muro de ladrillos, con número de filas deseado, tal como aparece enlafa- 
chada de los edificios. 
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27. Apartirde un hexágono centrado en la pantalla, debe observarse la adición progresiva 
de hexágonos, hasta formar un panal. 

28. Dibuja una carretera con una curva, de modo que tenga unos tramos de longitud alea- 
toria y adelantamiento prohibido. Se indicará mediante raya continua. 

29. Coge el código de circulación actualizado y selecciona las señales que creas más fre- 
cuentes. Dibuja cada una de ellas en pantalla, con su significado. Cada una ocuparála pantalla, de 
manera que debe haber la posibilidad de ver la anterior, o pasar a la siguiente. 

30. Dibujaelplano de un cruce cuatro caminos, con un seto central en la glorieta, y un paso 
de cebra para dos de las calles. 

31. Mejora el anterior, añadiendo en dos esquinas opuestas un semáforo con los colores 
reales, ocupando cada uno de ellos uncarácter. Deben estar en funcionamiento automático, con 
un tiempo de cambio dado por INPUT, y de modo que cuando uno está en rojo, el otro esté en 
verde. 

32. Realiza, ayudado con un SCROLL, la secuencia de un adelantamiento. Los coches de- 
ben ser gráficos definidos (ver tema siguiente). 

33. Dibujaen planta el plano de tu casa. Asigna una letra a cada habitación, de forma que al 
pulsarla aparezca información técnica sobre la misma, sin desaparición del plano. 

34. Entre las columnas $5 y 25 sitúa un laberinto de líneas horizontales y verticales, cons- 
truidas aleatoriamente con DRAW. 

36. Refundiendo los dos programas anteriores, crea el juego que consista en pasar el 
PLOT a través del laberinto, de la zona izquierda a la derecha. Se debe usar la sentencia POINT 
para impedir atravesar las paredes. El micro contará el tiempo invertido. 
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TEMA 13 
EL JUEGO DE CARACTERES ASCII 


FIGURA DEL PROGRAMA EJEMPLO DE LA PAG. (121). 


SENTENCIAS: ASC (CODE), CHR$ 


El juego de caracteres está formado por las letras del abecedario, números del 0 al 9, signos 
de puntuación, símbolos gráficos, etc. 

Eljuego de caracteres más usado en el ASCII (American Standard Codes for Information In- 
terchange): Código estándar americano para intercambio de información, en el que todos están 
especificados por un número de orden. El orden de los símbolos comunes atodos los ordenado- 
res es: números, mayúsculas, minúsculas, símbolos gráficos. 

Para ver el código de caracteres de tu micro, introduce el programa: 


10 PRINT “n. orden” “carácter” 
20 FOR n=0 TO 255 

30 PRINT n,CHR$(n) 

40 NEXT n 


El número máximo de caracteres ASCII sería 256, numerados del O al 255, sibien conviene 
visualizarlos a partir del número 32 (que es el espacio en blanco). 

Se puede utilizar en un programa el CHRS como instrucción, con el número de orden corres- 
pondiente. Por ejemplo, 


PRINT CHR $ 8; 
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desplaza la posición de escritura un lugar a la izquierda en la pantalla. 
La sentencia contraria a CHR $ es la ASC (en algunos micros CODE), cuyo formato es 


n.l. PRINT ASC a$ 


Esta sentencia da el número de código ASCII del primer carácter de la cadena aS. 
Para comprobarlo, mete: 


10 PRINT ASC(“A”) 
20 PRINT ASC(“ANGELA”) 


El siguiente programa utiliza el teclado como máquina de escribir. Por la línea 20, sólo admi- 
te minúsculas, así como el espacio. 


10 LET a$=INKEY $ 

20 IF ASC a$=32 OR (ASC a$>96 AND ASC a$<123) 
THEN PRINT a$; 

30 IF INKEY $=a$ THEN GOTO 30 

40 GOTO 10 


¿Cuál es el efecto de suprimir la línea 30? 
Para ver un empleo de CHR $ en el Spectrum, introduce en el programa anterior la línea: 


25 1F a$=CHR $ 8 THEN PRINT CHR $8;CHR $32;CHR $8; 


Con esta línea, cada vez que pulses cursor a la izquierda: 

— la posición de escritura se desplaza un lugar a la izquierda, 

— imprime ahí un carácter en blanco, 

— vuelve otra vez un lugar a la izquierda. 

Esta secuencia permite corregir un error. 

Otra utilidad de estas sentencias es para un menú de nueve opciones como máximo. Esque- 
matizado, sería: 


10 PRINT “OPCIONES 1 a 9. Pulsa la elegida ” 
20 LET a$=INKEY $ 
30 IF ASC a$<49 OR ASC a$>57 THEN GOTO 20 
40 
Por último, un dibujo aleatorio de los símbolos gráficos del Spectrum es: 
10 LET n= 128 + RNDx15 


20 PRINT CHR $ n; 
30 GOTO 10 


SENTENCIAS: POKE,PEEK 
Las dos memorias RAM y ROM están direccionadas, es decir, cada celda de estas memorias 
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(donde se guarda un byte) se especifica mediante un número, llamado dirección. Enel Spectrum, 
las direcciones: 
16384 a 32767 son de memoria RAM, para el de 16 K. 
16384 a 65535 son de memoria RAM, para el de 48 K. 
0 a 16383 son de memoria ROM, no modificables. 

La sentencia POKE sirve para cambiar el byte de una determinada dirección de la RAM. El 
formato es: 


n.l. POKE d,b 


donde d es la dirección y b es el byte contenido, de -255 a 255. 

Según sea la dirección tratada, se puede alterar alguna variable del sistema operativo, depen- 
diendo también del valor b introducido, pudiendo dar lugar a diversos efectos. Algunos ejem- 
plos son: 

POKE 23572,32 : anula la sentencia EDIT. 

POKE 23609,255: da un pitido cada vez que se pulsa una tecla. Disminuyendo el valor de b, se 

acorta el pitido. 

POKE 23609,0  : se elimina el efecto anterior. 

POKE 23658,8 : pone el cursor en modo mayúsculas. 

POKE 23658,0  : vuelve el cursor al modo minúsculas. 

POKE 23607,0  : después dela actuación de este POKE toda la escritura en pantalla aparece- 

rá de forma «jeroglífica». 

POKE 23607,60 : se vuelve a escritura normal. 

POKE 23692,1  : ejecuta un SCROLL de una sola línea, una vez que la impresión haya llega- 

do a la última línea. 

POKE 23561,0  : el teclado no es repetitivo. 

POKE 2365,n+2: borra n líneas últimas de la pantalla (es un CLS parcial). Es preciso poner a 
continuación INPUT””, 

POKE 23613,PEEK 23730- 5: anula la tecla BREAK. 

POKE 23613,PEEK 23730-3: activa el BREAK. 

La sentencia PEEK proporciona el valor del byte (en decimal) contenido en una cierta direc- 
ción d. 

El formato es: 


n.l. PRINT PEEK d 
Otra utilización del PEEK es la expresión: 
(PEEK 23672 + 256 * PEEK 23673 + 65536 * PEEK 23674)/50 


que investiga el tiempo que lleva el ordenador conectado, en segundos. Entonces, para medir el 
tiempo que lleva la ejecución de determinado programa, podíamos hacer: 


10 LET t1=(PEEK 236724+256x*PEEK 236734+65536x*PEEK 23674)/50 
90 LET t2=(PEEK 236724+256x*PEEK 23673+65536*PEEK 23674)/50 
100 PRINT “tardo ”;t2-t1;” segundos” 
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Como ejemplo de utilización conjunta del PEEK con el POKE, es posible hacer una línea O 
imborrable. Introduciendo las dos líneas siguientes: 


1 LET w=PEEK 23637+256x*PEEK 23638:POKE w,0:POKE w+1,0:STOP 
2 REM ESTA LINEA ES IMBORRABLE 


al detenerse el programa la línea 2 se convierte en la O, que esimborrable (puedes suprimir ahora 
la línea 1). 
NOTA: Estos códigos sólo son válidos para el microprocesador Z-80A. 


SENTENCIA: USR 


Esta sentencia sirve para el uso de rutinas muy particulares, como son: 

A) Gráficos definidos por el usuario. 

B) Llamada a subrutinas en código máquina. 

En el primer caso, se usa conjuntamente por POKE, y en el segundo, con RANDOMIZE. 
Veamos cada uno de ellos por separado. 


A) GRAFICOS DEFINIDOS POR EL USUARIO 


Llamaremos gráfico definido por el usuario a un carácter o dibujo que vas afabricar, que ocu- 
pará como máximo el espacio de un carácter de la pantalla. Como el espacio reservado en panta- 
lla para un carácter ocupa 8 filas y 8 columnas tamaño pixel, para construir el gráfico deberás lle- 
nar los cuadritos que lo definen. 

Una de las maneras es el siguiente procedimiento: Se asignan los números siguientes a cada 
columna del espacio ocupado por el carácter: 


128 64 32 16 8 4 2 1 


0 
64+32+2  —= 98 
128+16+1  =145 
12841641  =145 
128+8+1 = 137 
128+8+1 = 137 


A mE 
000 ? 


Después intenta el dibujo en la cuadrícula, preferiblemente a lápiz. Aquí hemos dibujado el 
símbolo de la corriente alterna. Cuando está terminado, se suma, para cada fila, los valores delas 
columnas utilizadas. Fijate en el ejemplo. Estas sumas, ordenadas empezando por la fila supe- 


118 


rior, constituyen los valores de la línea DATA del programa. Estos números se introducen en la 
zona de memoria reservada a tal fin con las sentencias POKE USR, seguido de unaletradela A a 
la U, entrecomillada y con el cursor en forma gráfica. 

El programa que imprimiría el símbolo anterior, sería: 


10 FOR i=0 To 7 


20  READn 
30  POKE USR “A”+i,n 
40 NEXT ¡ 


50 PRINT “A”;” es el símbolo de la corriente alterna” 
500 DATA 0,98,145,145,137,137,70,0 


Tanto en la línea 30 como en la 50, antes de pulsar la A, debes poner el cursor en G (modo 
gráfico). 

Una vez corrido el programa, cada vez que pulses la A, en modo gráfico, aparecerá el gráfico 
definido. 

En el código ASCII están reservados para gráficos definidos las posiciones 144 a 164,osea, 
21. Corresponden de la letra A a la U, respectivamente. 

Podemos hacer uso de esto para cargar varios gráficos, usando el mismo bucle. Por ejemplo, 
vamos a construir los cuatro subíndices 11,12,21,22 y selos asignaremos a la letra T. Sería de la 
forma siguiente: 


10 LETz$="T" 

20 LET s=143 

30 FOR j¡=1 TO 4 

40 LET s=s+1 

50 LET a$=CHR $(s) 
60 FOR ¡=0 TO 7 


70 READ n 
80 POKE USR a$ +i,n 
90 NEXT Ii 

100 NEXT j 


110 PRINT z$;CHR $ 144,z $;CHR $ 145,z $:CHR $ 146,2$;CHR $ 147 
500 DATA 0,0,34,102,170,34,34,34:REM SUBINDICE 11 

600 DATA 0,0,36,106,162,36,40,46:REM SUBINDICE 12 

700 DATA 0,0,66,166,42,66,130,226:REM SUBINDICE 21 

800 DATA 0,0,68,170,34,68,136,238:REM SUBINDICE 22 


Observación 


Dado que un carácter presenta una extensión muy pequeña, el dibujo que desees puedes re- 
partirlo en varios gráficos, y conectarlos. 


B) SUBRUTINAS EN CODIGO MAQUINA 


Hay subrutinas en código máquina, que se introducen al micro mediante POKE a partir de 
una determinada dirección de comienzo, y cuya llamada se hace mediante RANDOMIZE USR 
(dirección de comienzo). 
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Para realizar estas subrutinas es necesario saber lenguaje máquina, pero te vamos a dar algu- 
nas ya realizadas. Por ejemplo, la subrutina que realiza un SCROLL en horizontal, de derecha a 
izquierda, es: 


1 REM SCROLL HORIZONTAL 
5 DATA 33,0,64,85,62,192,6,31,35,94,43,115,35,16, 
249, 114,35,61,32,242,201 
10 FOR ¡=32000 TO 32020 


20 READn 
30  POKE in 
40 NEXT ¡ 


Mediante el bucle hemos introducido los valores de la línea DATA enlas direcciones 32000 
a 32020. Por tanto, como en este caso la dirección de comienzo es 32000, cada vez que quera- 
mos utilizar la subrutina, pondremos: 


n.l. RANDOMIZE USR 32000 


TODAS LAS SUBRUTINAS 
SON REUBICABLES 


ES DECIR, PUEDES CAMBIAR 
LA DIRECCION INICIAL. 


DIRECCION INICIAL: 32.000 


SI SE USA RND, LA LLAMADA A 
LA SUBRUTINA DEBE HACERSE CON 


LET Z=USR (dir) 
EN VEZ DE RANDOMIZE USR (dir). 


Vamos a aplicarlo a una cadena, de manera que salga por la derecha, letra a letra, y, después 
de atravesar la pantalla, desaparezca por la izquierda. Habría que añadir las líneas siguientes: 


100 REM APARECE LA PALABRA POR LA DERECHA 
110 INPUT “palabra ? ”; $ 

120 FOR i=1 TO LEN a$ 

130  PRINT AT 10,31;a$(i) 

140 PAUSE 15 

150  RANDOMIZE USR 32000 

160 NEXT i 


200 REM DESPLAZAMIENTO POR LA PANTALLA 
210 FORi=1TO 31 

220 PAUSE 15 

230  RANDOMIZE USR 32000 

240 NEXT i 
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Esta subrutina ocupa 21 bytes, que han llenado las direcciones de memoria de las 32000 ala 
32020. Sin embargo, puedes introducir la subrutina a partir de otra dirección inicial, de forma 
que, teniendo en cuenta su longitud de memoria, no sobrepases las direcciones. 

65535, para el micro de 48 K 
32767, para el de 16 K. 

Hay una serie de subrutinas de interés que podrás utilizar en tus programas, que las vamos a 

dividir en tres apartados: 

S1: subrutinas que actúan sobre toda la pantalla. 

S2: subrutinas que actúan sobre un carácter o cadena. 
S3: subrutinas que actúan pixel a pixel. 


SUBRUTINAS TIPO S1 


Te proponemos que veas el efecto de estas subrutinas mediante su introducción al micro. 
Veamos las siguientes: 


1 REM INVERSION DE LA PANTALLA 
10 FOR ¡40000 TO 40017 
20 READ n:POKE i¡,n: NEXT ¡ 
30 DATA 33,0,64,1,0,24,22,255,122,150,119,35,11,120, 
177,32,247,201 
90 REM APLICACION A DIBUJO 
50 FOR i=0 TO 175 STEP 4 
60 PLOT 0,0:DRAW 255,i: NEXT ¡ 
90 REM LLAMADA A SUBRUTINA 
100 PAUSE 0 
110 RANDOMIZE USR 40000 
120 GOTO 100 


Por la línea 100, cada vez que pulses una tecla actúa la subrutina. 

La siguiente es análoga ala del ejemplo SCROLL HORIZONTAL, que eraun scroll de dere- 
chaaizquierda. Los siguientes valores de la línea DATA realizan el desplazamiento de izquierda 
a derecha: 


DATA  33,255,87,22,0,62,192,6,31,43 ,94,35,115,43, 
16,249,114,43,61,32,242,201 


Esta tercera subrutina sirve para almacenar en memoria el contenido de una pantalla en de- 
terminado momento. Puede admitir hasta cuatro pantallas diferentes. 


99 REM DIBUJO EN PANTALLA 
100 LET p=1:FOR a=-127 TO 127 
110 PLOT 127,93:DRAW a,px*(45+37*C0S(3x*ax*Pl/128)) 
120 LET p=-p:NEXT a 
130 PRINT AT 21,4;"EFECTOS TRIDIMENSIONALES” 
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499 
500 
510 
520 
530 
540 
550 
560 
600 


899 
900 
910 
1000 
1020 
1030 
1040 
1050 


2000 
2010 
2020 
2030 
2040 
2050 


REM PREPARACION AL ALMACENAJE 
LET s=32000:LET r=32050 
RESTORE:FOR j=0 TO 11 
READ h:POKE s+j,h:NEXT j 
FOR j¡=0 TO 11 
READ h:POKE r+j,h:NEXT j 
DATA 17,232,128,33,0,64,1,0,27,237,176,201 
DATA 17,0,64,33,232,128,1,0,27,237,176,201 
GOSUB 1000: REM ALMACENAJE DEL DIBUJO DE LAS 
LINEAS 100-130 
REM VISUALIZACION CONTINUA 
GOSUB 2000 
GOTO 900 
INPUT “qué número de pantalla le asignas (1 a 4)?";p 
LET z=px*7000+26000 
LET a2=INT (2/256):LET a1=z-256x a2 
POKE 32001,al:POKE 32002,a2 
RANDOMIZE USR 32000 : RETURN 


REM VISUALIZACION DE PANTALLA EN MEMORIA 
INPUT “pantalla a visualizar (1 a 4)?";p : CLS 

LET z=p*7000+26000 

LET a2=INT (2/256):LET a1=z-256x*k a2 

POKE 32054,al:POKE 32055,a2 

RANDOMIZE USR 32050 : RETURN 


En las líneas 100 a 130 se ha generado un dibujo para su almacenamiento y posterior visuali- 
zación. El programa admite hasta 4. Por tanto, si quieres utilizar las otras, una vez generada la 
nueva pantalla, teclearás como comando GOSUB 1000 para su almacenamiento en memoria. 
Una vez almacenadas, el bucle continuo 900-910 visualiza la deseada. 

Ampliemos las posibilidades de la subrutina anterior en dos aspectos: 

— Almacenamiento de hasta 5 pantallas (cada una consume 6912 bytes de RAM). 

— Posibilidad de superponer una pantalla almacenada en memoria con la imagen existente 
en ese momento. 


1 REM ALMACENAJE, VISUALIZACION Y SUPERPOSICION 
10> FOR ¡30900 TO 30946 


20 
30 


40 


50 


60 


READ n:POKE ¡,n:NEXT ¡ 
DATA 33,0,64,237,91,118,92,1,0,24,26,182,119,35,19, 
11,120,177,32,246,201 : REM datos de superposición 

DATA 237,91,118,92,33,0,64,1,0,27,237,176,201 : 

REM datos de almacenamiento 
DATA 237,107,118,92,17,0,64,1,0,27,237,176,201: 

REM datos de visualización. 

STOP : REM ahora se generan las pantallas 


999 REM NUMERACION DE PANTALLA 
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1000 INPUT “pantalla ? (1-5) “;p 

1010 LET pos= 30975 + 6912x(p-1) 

1020 RANDOMIZE pos 

1029 REM OPCIONES 

1030 INPUT “meter, sacar o montar?(1-2-3)”;a$ 
1040 IF a$<"1" OR a$>"3" THEN GOTO 1030 
1050 GOTO 1000 + 100x*VAL a$ 

1099 REM SUBRUTINA ALMACENAJE 

1100 RANDOMIZE USR 30921 

1110 STOP : REM generación siguiente pantalla 


1199 REM SUBRUTINA VISUALIZACION 
1200 RANDOMIZE USR 30934 
1210 GOTO 1000 


1299 REM SUBRUTINA SUPERPOSICION 
1300 POKE 30911,182 

1310 RANDOMIZE USR 30900 

1320 GOTO 1000 


SOLO COINCIDENCIAS: 
POKE 30911,166 


COMPLEMENTARIO DE 
COINCIDENCIAS: 


POKE 30911,174 


El programa empieza cargando en código máquina los datos de cada subrutina. Cuando se 
detenga en la línea 60 viene el momento de generar la primera pantalla. Se puede hacer: 

— por comandos, 

— por programa, que podría ir en la zona de puntos suspensivos. 

Una vez generada, se le da GOTO 1000 para su numeración. Después el programa te pre- 
gunta (línea 1030) la opción a elegir: 


l. Se almacena en memoria la imagen existente en pantalla. 


2. Sevisualiza la pantalla del número seleccionado en la línea 1000, borrando previamente 
la imagen que hubiera. 


3. Ala imagen existente en TV se superpone la pantalla seleccionada por la línea 1000. 

Luego se generarían las sucesivas pantallas, hasta un máximo de 5, y una vez almacenadas 
puedes empezar a manejar su visualización- superposición. 

Cada almacenaje en memoria se puede hacer con el color de tinta y papel que desees. Al se- 
leccionar la opción 2 se visualizará instantáneamente tal cual. Ahora bien, al seleccionar la op- 
ción 3 se conserva el color de la primera pantalla. Es como si se superpusieran a ésta transparen- 
cias de las siguientes. 
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Como última subrutina del tipo S1 vamos a ver la que cambia los colores de tinta y fondo. El 
primero se hace mediante cambios en la dirección 23297, y el segundo en la dirección 23296: 


1 REM CAMBIO DE FONDO 
10 FOR ¡=40000 TO 40020 
20 READ mn: POKE ¡,n:NEXT ¡ 
30 DATA 33,0,88,1,0,3,237,91,0,91,126,163,178,119, 
35,11,120,177,32,246,201 
39 REM IMAGEN A TRATAR 
40 LET aS=" +++ INFORMATICA +++ ” 
50 FOR i=1 TO 10 
60  — PRINT:PRINT a$:NEXT ¡ 
69 REM UTILIZACION 
70 LET c=0 
80 POKE 23296,0 : REM tinta fija 
90 PAUSE 20 
100 POKE 23297,8x*c: REM cambio de fondo 
110 RANDOMIZE USR 40000 
120 LET c=c+1:1F c>15 THEN LET c=0 
130 GOTO 100 


CAMBIAR TINTA: 


POKE 23297,C 


SUBRUTINAS TIPO S2 


Esta primera subrutina tipo carácter a carácter coge un carácter y lo gira 180” respecto un eje 
horizontal que pasase por el centro del carácter: 


1 REM INVERSION VERTICAL 

10 FOR ¡=40000 TO 40019 

20 READ n:POKE ¡,n:NEXT ¡ 

30 DATA 42,0,91,84,93,6,8,126,36,245,16,251,6,8,241,18, 

20,16,251,201 

70 INPUT “introduce cadena a invertir ”;a$ 

80 PRINT a$ 

90 LET c=0:REM c simboliza la columna 
100 POKE 23297,64 
110 PAUSE 0 
120 POKE 23296,c 
130 RANDOMIZE USR 40000 
140 LET c=c+1:1F c=256 THEN LET c=0 
150 GOTO 110 


La columna sobre la que actúa la subrutina está especificada en la línea 120 por medio de la 


124 


variable c. Por tanto, para invertirtodoslos caracteres de la cadena, esta variable debeincremen- 
tarse, lo que se hace en la 140. 

Te vamosa darlos DATA de una subrutina análoga a la anterior, que realiza el giro con un eje 
vertical, centrado en cada carácter.Son: 


DATA  42,0,91,62,8,6,8,203,30,203,17,16,250,113,36,61,32,243,201 


Las subrutinas anteriores sólo actúan sobre la zona de la pantalla formada por las 8 primeras 
filas. Se debe a la limitación del parámetro c, que no puede sobrepasar el valor de 255. 
Para poder acceder a toda la pantalla, habría que pokear: 


POKE 23297,64 + 8xt ,con 0<t<2 
POKE 23296,c ,con 0<c<255 


valiendo t=0 para las primeras ocho líneas,t=1 paralas 8 siguientes y t=2 paralas 8 últimas. Para 
cada una de estas zonas, c vade 0 a 255. 

Entonces, ampliando el programa anterior de modo que la subrutina acceda a toda la panta- 
lla, tendríamos que poner, a partir de la línea 70: 


70 INPUT “carácter a invertir ? ";a$ 
80 FOR ¡=1 TO 22x32 
90 PRINT a$; 
100 NEXT i¡ 
110 PAUSE 0 
200 IFt>2 THEN LET t=0 
210 POKE 23297,64 + 8x*t 
300 POKE 23296,c 
310 RANDOMIZE USR 40000 
320 LET c=c+1:1F c=256 THEN LET c=0:LET t=t+1:GOTO 200 
330 GOTO 300 


Observación 


En este último programa, como la subrutina actúa sobre tres zonas de ocho filas cada una 
(24), invierte también los caracteres escritos en zona reservada. 

Esta tercera subrutina realiza un entintado, columna a columna, del color que desees y empe- 
zando por el lado izquierdo de la pantalla (forma una especie de telón por el lado izquierdo). 


1 REM TELON 
10 FOR ¡=40000 TO 40022 
20 READ n:POKE ¡,n:NEXT ¡ 
30 DATA 33,255,90,58,0,91,14,24,6,31,43,94,35,115, 
43,16,249,119,43,13,32,242,201 
40 REM PREPARACION DE LA PANTALLA 
50 LET a$=" ... INFORMATICA ... ” 
60 FOR i=1 TO 11:PRINT:PRINT a$:NEXT i¡ 
70 PAUSE 0 
90 REM EJECUCION DE SUBRUTINA 
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100 FOR i=1 TO 10 

110 FORc=0TO 7 

120 PAUSE 20 

130 POKE 23296,9x*c 

140 RANDOMIZE USR 40000 
150 NEXT c 

160 NEXT i¡ 


La línea 130 controla el color de cada barra según el valor de la variable c, que es el código de 
color. Porla línea 140 se llama ala subrutina, para que aparezca una nueva barra. Porlalínea 110 
se barrentodoslos colores, conlo que aparece un telón tipo «arcoiris», siendo repetido 10 veces, 
debido al bucle de la línea 100. 

La siguiente subrutina es análoga, pero ahora el telón parte por la derecha de la pantalla, con 
la diferencia que el telón es de un solo color (puedes hacerlo tipo arco iris). 


1 REM TELON POR LA DERECHA 
10 FOR ¡=40000 TO 40022 
20 READ mn: POKE i,n : NEXT ¡ 
30 DATA 33,0,88,58,0,91,14,24,6,31,35,94,43,115,35,16, 
249,119,35,13,32,242,201 
40 REM PREPARACION DE LA PANTALLA 
50 LET a$=" ... INFORMATICA ... ” 
60 FOR ¡i=1 TO 11:PRINT:PRINT a$ : NEXT ¡ 
70 INPUT “color del telón ?”;c 
100 FOR ¡=1 TO 32 
120 PAUSE 5 
130  POKE 23296.9xc 
140  RANDOMIZE USR 40000 
150 NEXT i 


El telón formado ha ocultado laimagen en pantalla. Para «descorrer»el telón y volvera visua- 
lizar la imagen oculta, añadir: 


200 PAUSE O 

210 POKE 23296,56 

220 FOR ¡=1 TO 32 

230  RANDOMIZE USR 40000 
240 NEXT ¡ 


Mejoras y complementos 


1. Telón transparente: en las líneas 130, pokeando 8:xc, el telón resultará transparente, por 
lo que no ocultará la imagen. 

2. Opciones alos atributos tras el descorrimiento (ver función ATTR): en la línea 210, po- 
keando el valor de la fórmula de atributos explicada en la función ATTR, se logra una visualiza- 
ción de la pantalla con atributos diferentes de la original. Por ejemplo, pokeando: 


128 + 8x1 +6 
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sale tinta amarilla sobre fondo azul, con flash. Ver función ATTR. 
Por último, te vamos a dar la subrutina de un telón bidireccional. 


10 REM telón bidireccional 
20 FOR ¡60000 TO 60044 
30 READ n: POKE i,n: NEXT i 
40 DATA 42,0,91,35,34,0,91,43,6,24,58,4,91,17,32,0, 
119,25,16,252,42,2,91,43,34,2,91,35,6,24,58, 
4,91,119,25,16,252,201,195,144,234,25,16,252,201 
50 LET a$=" ... INFORMATICA ... ” 
60 FORi=TO 11:PRINT:PRINT a$: NEXT i 
70 REM color del telón 
80 INPUT “color del telón ? ";c 
90 POKE 23300,9x*c 
100 POKE 23297,88:POKE 23299,88 
110 REM cierre del telón 
120 FOR i=0 TO 15 
130 POKE 23296,i 
140 POKE 23298,31- ¡ 
150 RANDOMIZE USR 60000 
160 NEXT ¡ 
200 REM apertura 
210 PAUSE O 
220 POKE 23300,56: Rem POKEAR fórmula atributos de ATTR 
230 FOR ¡15 0 STEP -1 
240  POKE 23296,i 
250 POKE 23298,31- ¡ 
260 RANDOMIZE USR 60000 
270 NEXT i 


Para telón transparente, hacer 


90 POKE 23300, 8xc 


SUBRUTINAS TIPO S3 


Las siguientes subrutinas realizan un SCROLL de pantalla, pixel a pixel, es decir, a una velo- 
cidad moderada y dando una sensación de continuidad. La primera es un SCROLL hacia la iz- 
quierda: 


10 REM DESPLAZAMIENTO A LA IZQUIERDA 

20 FOR ¡=40000 TO 40016 

30 READ n: POKE ¡,n: NEXT n 

40 DATA 33,255,87,14,192,6,32,183,203,22,43,16,251,13, 
32,245,201 

49 REM GRAFICA DEL SENO 
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50 FOR ¡=1 TO 255 
60 PLOT ¡,80 + 70*SIN (i/20) 
70 NEXT i 
79 REM SIGUE EL SENO, Y LLAMADA A SUBRUTINA 
80 FOR ¡=256 TO 500 
90  RANDOMIZE USR 40000 
100 PLOT 255,80 + 70*SIN (1/20) 
110 NEXT i: STOP 


Se pueden efectuar los cambios siguientes: 

— Eltercer valor de DATA (87), si lo sustituyes por 79, te realiza el desplazamiento de las 
16 primeras filas. 

— Sieste valor lo sustituyes por 71, el desplazamiento es solamente de las 8 primeras líneas. 

Para realizar la subrutina análoga, con desplazamiento contrario, la línea DATA correspon- 
diente es 


DATA 33,0,64,14,192,6,32,183,203,30,35,16,251,13,32,245,201 


Para comprobar la rapidez del código máquina en comparación con el BASIC, te propone- 
mos el siguiente ejercicio: 

Consiste en realizar la imagen de cualquier figura respecto de un espejo plano (SIMETRIA 
ESPECULAR). El espejo será vertical y en el centro de la pantalla, y la figura estará en la mitad 
izquierda. Haz la que quieras aunque nosotros, para prueba, hemos elegido la siguiente: 


1 REM FIGURA DE PRUEBA EN LA MITAD IZQUIERDA 
10 FOR i¡=1 TO 7 
20 CIRCLE 5x*i + 20,12x*i + 10,12 
30 NEXT ii 
40 FOR ¡i=1 TO 130 STEP 10 
50 PLOT 0,175 
60  DRAW ¡,-160 
70 NEXT ii 
80 PRINT AT 4,5; “SIMETRIA”;AT 6,3;"ESPECULAR” 


Ahora intenta dibujar suimagen, utilizando la instrucción POINT (para ello barre, pixel a pi- 
xel, todo el áreaizquierda, de forma que cuando encuentre un pixel activado, lo dibuje, simétrico, 
en la derecha). Cuando lo hayas logrado, te darás cuenta que lleva su tiempo, dado que el BASIC 
es lento. 

Te vamos a dar la subrutina que realiza la misma simetría en código máquina. 


9900 REM SIMETRIA ESPECULAR EN CODIGO MAQUINA 

9910 FOR ¡=60000 TO 60043 

9920 READ n:POKE ¡,n:NEXT ¡ 

9930 DATA 243,17,31,0,33,0,64,229,221,225,221,25,6,16, 
197,126,6,8,203,31,203,17,16,250,221,113,0, 
35,221,43,193,16,237,1,16,0,9,124,254,88,56, 
221,251,201 
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9940 PLOT 127,0:DRAW 0,175 
9950 PRINT AT 21,0;«PULSA UNA TECLA»:PAUSE O 
9960 RANDOMIZE USR 60000 


Otra aplicación del USR se utiliza para averiguar la memoria gastada, asícomo la que queda 
disponible: 

Memoria que queda: PRINT 65535 -USR 7962 

Memoria gastada: como la memoria efectiva de uno de 48 K es 41474 bytes (el resto es para 
la memoria de vídeo), la gastada será 41474 menos la que queda. 


PROGRAMAS 
1. Introducida una frase, se deben contar: 
— mayúsculas, 
— minúsculas, 
— comas, 
— puntos. 


2. Teniendo en cuenta que cada carácter lleva asociado un número según el código ASCII, 
idea un algoritmo de cifrado, de forma que transforme una frase en algo «indescifrable». Asimis- 
mo, conociendo la clave debe existir la posibilidad de descifrar el mensaje. 

3. Análogo al anterior, pero de manera que el cifrado se hace sumando un número aleato- 
rio al código ASCII de cada carácter del mensaje original. Para el descifrado, es necesario alma- 
cenar estos números aleatorios en una matriz. 

4. Hacer un dibujo aleatorio con los símbolos gráficos (CHRS 128 a CHRS 143), de longi- 
tud aleatoria de 5 a 15 y que llene toda la pantalla (simulador de diseños de jerseys). 

5. Diseña gráficos definidos para las letras griegas. 

6. Diseña gráficos definidos para flechas (horizontales, verticales y diagonales). 

7. Diseña el símbolo de la integral, ocupando tres caracteres en vertical. Asimismo, las di- 
ferenciales dt y dl (un carácter). 

8. Diseña los símbolos matemáticos de: 

— aproximadamente igual, 

— el igual en vertical, 

— equivale a, 

— el factorial doble. 

9. Dibuja, ocupando un carácter, un «comecocos». 

a) con la boca abierta, 

b) con la boca cerrada. 

Mueve por la pantalla estos dos gráficos definidos de forma que se vayan «comiendo» una pa- 
labra. 

10. Dibujar un hombre haciendo gimnasia (varias posiciones). 

11. Dibujarloslatidos de un corazón (más grande, más pequeños, más grande, etc.). Al pul- 
sar el + debe acelerarse el movimiento, y retardarlo al pulsar el -. 

12. Se necesitan las vocales acentuadas, así como la n, y la diéresis en la o y en la u. 

13. Construye los caracteres ”, *, así como los numeritos 2 y 3, que simbolizan el cuadra- 
do y cubo. 
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14. Dados dos números enteros cualesquiera, averigua el tiempo que le lleva al ordenador 
ejecutar 1.000 veces su suma (sin imprimirla). Asimismo, calcúlalo para el resto de las operacio- 
nes aritméticas elementales. 

15. ¿Cuántas veces más rápido es que el ordenador efectúe el producto 33x33 que efec- 
tuar la potencia 33 1 2? 

16. Construye unjuego para dosjugadores que consiste en adivinar un número entero, de 0 
a 1000, que el ordenador genera y guarda. Gana el que necesite menos tiempo para adivinarlo, 
dando el ordenador el ganador y el tiempo invertido por cada uno. 

17. Paraponeraprueba tu memoria haz el programa siguiente: Se tratade recordar uncon- 
junto de números que el ordenador te vaa mostrar previamente. En el comienzo del programa, el 
ordenador te pide cuántos números deseas que te muestre en la prueba (del O al 9). El ordenador 
los genera aleatoriamente, y te los muestra. Al pulsar una tecla, se borra la pantalla. En este mo- 
mento has de introducir los números de la secuencia, de dígito en dígito. Al primer error, el orde- 
nador te da el número de aciertos. 

18. Análogo al anterior, pero en vez de dígitos, el ordenador te propone una secuencia de 
letras. 

19. Utilizando la subrutina SCROLL HORIZONTAL tipo S1, simular un hombre co- 
rriendo sobre un fondo montañoso. El individuo deberás hacerlo con dos caracteres definidos 
que al superponerse den la sensación de movimiento. El fondo se genera aleatoriamente. 

20. Análogo al anterior, pero con un movimiento más pausado (caminando), utilizando la 
subrutina de SCROLL tipo S3. 

21. Genera dos pantallas: una es una cuadrícula de diez por diez, y otra es un conjunto de 
barcos adaptados a la cuadrícula (barcos propios), y la última es el conjunto de barcos enemigos. 
Utilizando la subrutina de superposición de pantallas, superponlas de diversas formas. 

22. Se trata de observar polígonos inscritos en una circunferencia mediante el uso de la 
subrutina anterior. Para ello almacena en una pantalla la circunferencia, y en otras distintos po- 
lígonos regulares. 

23. Usando la rutina de superposición, simular el giro constante de un disco alrededor de 
un diámetro vertical. Para ello has de generar y almacenar cuatro pantallas (circunferencia y tres 
elipses). 

24. Setrata de realizar laimagen especular de una palabra. El ordenador pide tu nombre, y 
lo imprime en la primera fila. En la segunda dibuja mediante una línea, el imaginario espejo. Por 
último, en la tercera imprime laimagen del nombre (debes imprimir primero en la tercera línea el 
nombre normal, y luego usar la subrutina tipo S2). 

25. Análogo al anterior, pero ahora el espejo está en posición vertical y a un carácter de la 
última letra del nombre. Antes de usar la subrutina correspondiente, debes preparar la pantalla 
de la forma siguiente (cojamos la palabra «PERAS»): 

PERAS SAREP 
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TEMA 14 


GRABACION Y CARGA DE PROGRAMAS 
FICHEROS EXTERNOS 


LOAD_.- 


Ma MERGE 7 


A 


SENTENCIAS DE GRABACION Y CARGA. 


FICHEROS BIDIRECCIONALES 
CINTA 

MODEM 

DISCO 

FICHEROS UNIDIRECCIONALES 
MONITOR O TV 


IMPRESORA 
PLOTTER 


GRABACION DE UN PROGRAMA EN CINTA. SENTENCIAS: SAVE, VERIFY 
Existe la posibilidad de conservar el listado de un programa mediante la grabación del mismo 
en una cinta normal de cassette. Los cassette sencillos son los que mejor resultado dan, y si tu cas- 


sette es estéreo, has de ponerlo en conmutación MONO y los agudos al máximo. 
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Para ello se usa la sentencia SAVE, con el formato: 
SAVE “(nombre del programa)” 


donde (nombre del programa) no puede superar 10 caracteres. 

El cassette debe prepararse del modo siguiente: 

1. Conectar, mediante un cable, la salida MIC del micro con la entrada MIC del cassette. 

2. Introducir la cinta, en la posición deseada del comienzo de grabación. 

3. Anotar el número de vuelta. 

Una vez hecho esto, seintroduce SAVE «nombre» como comando, apareciendo en pantalla 
el mensaje: Start tape, then press any key («Pon en marcha la cinta y pulsa una tecla»). 

Lo haces, y detienes la cinta cuando salga en pantalla el mensaje «OK». 

Este programa, así grabado, necesita que se pulse el RUN para ejecutarlo, una vez cargado 
(del cassette al micro). Sin embargo, existe la posibilidad de autoejecución del programa a partir 
de una determinada línea, la que tú desees. 

Para ello el comando sería: 


SAVE «(nombre del programa)» LINE x 


donde x es el número de línea donde comenzará la autoejecución. 

Estas sentencias se usan normalmente como comando, pero pueden ir incorporadas al pro- 
grama, como instrucciones, con su número de línea. 

Para comprobar la bondad de la grabación, tenemos la sentencia VERIFY. Se siguen los pa- 
sos: 

1. Rebobinar la cinta hacia el comienzo de la grabación. 

2. Conectar, mediante un cable, la salida EAR del cassette con la entrada EAR del micro. 

3. Pulsa VERIFY *”. 

4. Pon en marcha el cassette. 

Si la verificación ha resultado positiva, saldrá el mensaje «OK». Entonces se puede conside- 
rar que el programa ha sido grabado correctamente. 


CARGA DE UN PROGRAMA. SENTENCIAS: LOAD,MERGE 


Para realizar la operación contraria, es decir, vuelco del programa de la cinta a la memoria 
RAM del ordenador, se usa la sentencia LOAD, bajo el formato: 


LOAD “(nombre del programa a cargar)” 
Si pusieras simplemente LOAD”” 

Los pasos a seguir son: 

1. Conectar EAR con EAR. 

2. Posicionar la cinta. 

3. Pulsar LOAD””. 

4. Poner en marcha la cinta. 


, te cargaría el primer programa que encuentre en la cinta. 


Si el programa fue grabado en su momento con SAVE LINE, en cuanto esté cargado se au- 
toejecuta. De lo contrario, si la carga ha sido correcta sale el «OK». 
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Cada cassette tiene un volumen máximo de salida. De ahíque tengas que hacer pruebas hasta 
conseguir el volumen adecuado para una carga correcta. Suele ser unos 3/4 del volumen máxi- 
mo. En el mismo momento en que se encuentra con un error de carga; por cualquier motivo, el 
micro saca el mensaje: 


Tape loading error 
En este caso debes intentarlo otra vez, modificando el tono y/o el volumen. 

La carga usando LOAD, borra de la memoria RAM todo el espacio reservado al BASIC. De 
ahí que se conserven, entre otras cosas, la memoria de pantalla y los caracteres gráficos del pro- 
grama anterior. Si quieres borrado total de la memoria RAM, pulsa antes de la carga, 


RANDOMIZE USR 0 


Sin embargo, hay un procedimiento de carga de un programa que respeta todo lo que hay en 
memoria. Es usando la sentencia MERGE en vez de LOAD. El formato es: 


MERGE “(nombre del programa a fusionar)” 
Haciendo MERGE ”” fusiona el primer programa que encuentre en la cinta. 


Observación 


La carga mediante MERGE no respeta las líneas del programa primitivo que coinciden en 
número de línea con el programa a fusionar, quedando las de este último. 
Lo mismo sucede con las variables de igual nombre. 


La carga de un programa con MERGE invalida el autorun (SAVE LINE). 


ALMACENAMIENTO DE PANTALLA EN CINTA 


Si quieres conservar en cinta lo que figure en pantalla, basta seguir el procedimiento normal 
de grabación, ya explicado, usando el formato: 


SAVE “(nombre de la pantalla)” SCREEN $ 


en forma de comando. 
Para su carga, análogamente a lo explicado, con: 


LOAD “nombre” SCREEN $ 


La aparición en pantalla durante la carga se hace por fragmentos progresivos, y al terminar 
aparecen los atributos. 
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ESTA VISUALIZACION ES 
REUTILIZABLE EN EL PROGRAMA 


GRABACION DE PANTALLAS 
REUTILIZABLES 


1. INTRODUCIR SUBRUTINA CON LOS 
DATOS DE LA LINEA 50(PAG 122) 
EN LA DIRECCION 58600. 


GENERACION DE PANTALLA. 
SAVE Pl” CODE 16384,6912. 
LOAD PI” CODE 58620. 
RANDOMIZE 58620. 
RANDOMIZE USR 58600. 


CADA VEZ QUE SE DESEE 
VISUALIZACION, TECLEAR 
RANDOMIZE USR 58600. 


ES 


GRABACION Y CARGA DE DATOS EN FORMA MATRICIAL 


En cinta no solamente se puede almacenar un programa y sus variables, sino también un con- 


junto de datos contenidos en una matriz, ya sea numérica o alfanumérica. Vamos a dividir el pro- 
ceso en dos fases: 


FASE 1: Llenado y grabación de la matriz 


Vamos allenar dos matrices, una con cinco preguntas y otracon sus respuestas, para acoplar- 


las posteriormente a un programa que vaa preguntarlas, y su evaluación correspondiente. Sería: 


10 
20 
30 
40 


DIM p$1(5,70): DIM r$(5) 
FOR n=1 TO 5 

READ pg$(n), r$(n) : NEXT n 
DATA “Los triángulos son de tres tipos: equilátero, isósceles y escaleno”, “c”, ” Amstrong pisó la luna en 
1969”, *c”,” Las Filipinas son unas islas del hemisferio sur ”,”f”,” La fórmula del ácido sulfúrico es H,SO,”, 
“c”,” Fleming, descubrió la penicilina, era americano ”,*f” 


Una vez corrido el programa, podemos grabar el contenido de estas matrices en cinta. Para 


ello se utiliza el formato: 


SAVE “(nombre)” DATA nombre de matriz () 


donde (nombre) es aquel por el cual el ordenador reconoce esta grabación, nombre de matriz es 
la letra asignada a la matriz y () es un par de paréntesis, escrito tal cual. 


50 
60 
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Esta sentencia, al igual que en casos anteriores, puede utilizarse: 
— como comando, 

— incorporada al programa. 

En nuestro caso, podríamos poner: 


SAVE “preguntas” DATA p$() 
SAVE “respuestas” DATA r$() 


Tras la grabación en cinta, puedes verificarla. 


Observación 


Fíjate que hemos grabado el contenido delas matrices exclusivamente, no hace falta grabar el 
programa. 


FASE 2: Programa de utilización 


Vamos a darte el programa que usa las anteriores matrices para un posible examen. Estánin- 
corporadas las sentencias de carga para las dos matrices, que siguen el formato: 


LOAD “(nombre)” DATA nombre de la matriz () 
El programa sería: 


10 CLS:DIM p$(5,70):DIM r$(5) 
20 PRINT AT 12,0;“pulsa PLAY para cargar matrices” 
30 LOAD “preguntas” DATA p$() 
40 LOAD “respuestas” DATA r$() 
50 CLS:PRINT AT 10,10;FLASH 1;“PARA LA CINTA”; AT 
16,7;“Y PULSA UNA TECLA”:PAUSE 0 
100 FOR n=1 TO 5 
110  CLS:PRINT AT 6,5;“Pregunta ”;n 
120  PRINT:PRINT p$(n):GOSUB 500 
130 NEXT n 
200 CLS:PRINT AT 12,1;“De 5 preguntas has acertado ”;x 
220 STOP 


500 PRINT AT 21,7;“cierto (c) falso (f)?” 

210 POKE 23658,0:REM cursor en minúsculas 
250 IF INKEYS=r$(n)THEN LET x=x+1 : RETURN 
260 IFINKEYS="" THEN GOTO 250 

270 RETURN 


Este programa hay que grabarlo. 
Si has seguido las fases 1 y 2, tendrás cargado en cinta las matrices y el programa de utiliza- 


ción, por este orden. Sin embargo, lo idóneo es: 


— suprimir la línea 20 del programa de utilización, 
— grabar este programa delante de la grabación de matrices, y con SAVE LINE 10. 


GRABACION Y CARGA DE BYTES PARA CODIGO MAQUINA 


Existe la posibilidad de grabar y recuperar los bytes contenidos en ciertas posiciones de me- 
moria. Puede servir para aplicarlo a los bytes de las subrutinas del cap. XIII. 
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Por ejemplo, si queremos guardar en las posiciones de memoria de la 45000 a la 45050 el 
byte 33, sería: 


10 FOR ¡45000 TO 45050 
20 POKE ¡,33 
30 NEXT ¡ 


Después de correr el programa, se puede grabar el contenido de estas direcciones de memo- 
ria. 
Para ello se utiliza, como comando o con número de línea, el formato: 


SAVE “(nombre)” CODE dl 


donde (nombre) es aquel por el cual el ordenador reconocerá el conjunto de bytes, d es la direc- 
ción de comienzo y l es el número de bytes a grabar. 
Para aplicarlo al programa anterior, sería: 


SAVE “meter 33" CODE 45000,51 
Para verificarlo, echa la cinta hacia atrás y teclea 
VERIFY ”” CODE 


La carga de estos bytes se puede realizar de una de estas dos formas: 

A) Conelformato LOAD ”” CODE cargalos bytes en las mismas direcciones en que estaban en 
el momento de la grabación. 

B) Conel formato LOAD *” CODE n donden es la dirección a partir de la cual comienzan los 
bytes a almacenarse en memoria. Por ejemplo, si ponemos: 


LOAD *” CODE 50000 
los bytes 33 (en total eran 51) comienzan a ubicarse a partir de la dirección 50000. 


Observación 


La carga en cualquiera de las dos modalidades respeta el programa BASIC mientras la carga 
de bytes no invada la zona de memoria en que está. 


MODEM, DISCO E IMPRESORA 


Los servicios de transmisión de datos entre ordenadores a distancia utilizan la red telefónica. 
Para ello se requiere transformar las señales digitales en analógicas, las cuales son válidas en la 
transmisión por el hilo telefónico (aunque existen tramos telefónicos de fibra óptica, donde la 
señal es digital). Este proceso se llama modulación. 

Al llegar las señales al ordenador de destino hay que volver a convertirlas en digitales, es el 
proceso llamado demodulación. Al equipo MOdulador-DEModulador, instalado uno en cada 
ordenador, se le llama «modem». La telemática es un aprovechamiento de este proceso. 
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Para almacenamiento y rápida lectura de grandes cantidades de datos se usan los disquettes 
(para micro y miniordenadores). Su memoria oscila, según tamaño y aparato, entre 150 Kbytes y 
1 Mbyte (un millón de bytes). Para memorias mayores se usa el llamado disco duro. 

Tanto discos como disquettes requieren, antes de su uso, la operación llamada formateo. 
Formatear es dividir, desde el punto de vista magnético, el disco en pistas (coronas circulares). A 
su vez, cada pista se divide en un determinado número de sectores. La unidad de disco chequea 
cada sector, y aquel que tenga algún defecto lo invalida, es decir, nolo utilizará. Al final, se comu- 
nican cuántos bytes quedan utilizables para el proceso de grabación. 

El disco admite dos tipos de ficheros: secuencial y aleatorio o de acceso directo. En el secuen- 
cial, se van leyendo los sectores hasta encontrar el que tenga la información buscada. Consi- 
guientemente, es más lento que el de acceso directo que, como su nombre indica, se posiciona di- 
rectamente en el sector deseado. 

Laimpresoraes un periférico de gran utilidad, y relativamente barato, pues te permite pasara 
papel: 

— listados de programas, 

— salida de resultados, 

— figuras en pantalla. 

A su vez tienen la posibilidad, que no existe en una máquina de escribir, de utilizar varios ti- 
pos de letra, además de caracteres especiales y programables. 

Hay una gran gama en cuanto a colores, velocidades y técnicas de impresión. 
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TEMA 15 
PROGRAMAS DE APLICACION DIDACTICA 


Se exponen en este tema cinco programas, tratando cada uno de ellos un aspecto muy con- 
creto de las siguientes materias: 

— matemáticas, 

— física, 

— química, 

— biología, 

— inglés. 

Con esto se pretende dar una idea de las posibilidades de ayuda que la informática nos pro- 
porciona en cualquier área de la enseñanza. 

Cada uno de estos cinco programas son una simplificación de un programa didáctico ambi- 
cioso.Puedes elaborar unos programas semejantes, incluso de otras aplicaciones, si has asimila- 
do el contenido de este libro. Con toda seguridad te serán útiles, en uno u otro aspecto. 


MATEMATICAS 


El programa te permite calcular las operaciones algebraicas de suma, resta y producto entre 
matrices (incluido un número por una matriz), indefinidamente, siempre que puedas ir asocian- 
do adecuadamente la expresión. 

Por ejemplo, si se considera la operación ((A+B).c-D+E).F se introduce primero la matriz 
A, ala que se suma la B; al resultado se le multiplica por el número c; a este resultado sele resta la 
D, etc. 

Características: Si se quiere hacer una operación entre matrices no compatibles (dimensio- 
nalmente), porlas líneas 820 a862 (verlistado adjunto) se rechaza la posibilidad dela operación, 
volviendo a solicitar una matriz hasta que ésta sea correcta. 

En una operación entre matrices semejante a la anterior van saliendo en pantalla los resulta- 
dos parciales. El programa vale para matrices de cualquier dimensión, y los resultados van sa- 
liendo fila a fila, guardando una línea en blanco entre cada dos filas de la matriz. 

Para el ejemplo siguiente se han escogido matrices cuadradás de orden 3, mostrándose el re- 
sultado final de la operación: 


((A+B).c-D+E).F 
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POR 
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(a 
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BP 
6 
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p 
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a 
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Éú 
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Tí 


matriz A 


matriz B 


constante (matriz de dimensiones 1X1) 


matriz D 


matriz E 


matriz F 


matriz ((A+B).c- D+E).F 


Operaciones con MATRICES, de forma indefinida 


10 PRINT AT 16,0; "DATOS de la matriz" 
11 INPUT "N. de filas? "¿531: INPUT "N. de columnas? "¿hi 
14 DiM a(j1,h1): FOR +=1 TO j1lz FOR c=1 TO h1: PRINT AT 20,0; "FILA “ef: PRI 
NT "COLUMNA "cz INPUT a(+,c): GO SUB 50: NEXT cz NEXT +: CLS 
19 PRINT AT 21,0: "OPERACION a realizar:": INPUT " +(1) -(2) *x(3) 2 "¿nu:z GO 
SUBE 50: 1F nu<>i AND nu<>2 AND nu<>3 THEN GD TO 19 
20 LET co=0: LET m=0: PRINT AT 16,0: "DATOS de la siguiente matriz:": INFUT "N. 
de tilas? "3523 INPUT "N. de columnas? ";¿h2:3 GO SUB 50: GO TO (BOO0+20knu) 
23 DIM b(52,n2):3 FOR f=1 TO j¡2: FOR c=1 TO h2:3 PRINT AT 20,0; "FILA “sti PRI 
NT "COLUMNA “:zc:z INPUT b(+.c): GO SUB SO: NEXT cz NEXT +: CLS . 
40 1F nu=1 OR nu=2 THEN 60 TO 500 
41 1F nu=3 THEN GO TO 600 
50 PUKE 236539,6: INPUT ""* RETURN 
479 REM XXXXXXAXXAAK SUMA ALGERRAICA DE MATRICES 
500 LET ¿¡3=51:3 LEÍ h3=n1: GO SUB 800 
5064 FUR +=1 TO 53: FOR c=1 TO h33 1F nu=2 THEN LET b(4.c)=-Db(+,C) 
506 LET c(f,c)=a(f,c)+b(f,c): GO SUB 810: NEXT cz: NEXT $: GO TO 700 
37% REM *XXXXXXAXXX PRODUCTO DE MATRICES 
600 1F (j¡1=1 AND ni=1) OR (¿2=1 AND h2=1) THEN GO TO 650 
604 LET j¡3i=:41: LET h3=h2: GO SUB 800 
60S FOR $f=1 TO j¿3: FOR c=1 TO h3: LET k=-1 
610 LET k=k+1:3 LET d=1: LET c(4,c)=c(f,c)+a(f,d+k)Xxb(d+k,.c): GO SUB 810 
6153 (F k=h1-1 THEN GO TO 625 
620 60 TO 610 
623 NEXT cs NEXT 4: GO TO 700 
649 REM kxXXXXXXXAK PRODUCTO DE ESCALAR POR MATRIZ 
650 IF j¡2=1 THEN  1F h2=1 THEN LET j¡3=j;,1:2 LET h3=h1: LET b=b(1.,,1) 
651 IF j¿j1=1 THEN  —1F hi=1 THEN LET j¿¡3=j2: LET h3=h2: LET a=a(1,1) 
653 60 SUB 800 
655 FOR +=1 TO ¿33 FOR c=1 TO h3 
656 IF j1=1 THEN  1F hi=1 THEN LET c(f,c)=axb(f,c) 
657 1F ¡2=1 THEN 1F h2=1 THEN LET c(f,c)=a(f,c)xAb 
659 GO SUB 810: NEXT c: NEXT £ 
679 REM XXXXXIMPRESION MATRIZ RESULTADOXx xxx 
700 FUR $=1 TO 3: FOR c=1 TO h3: LET p=m+13 IF c=1 THEN LET p=0 
710 LET co=co+p: PRINT TAB coicíf,c)iz NEXT cz PRINT : PRINT : LET co=0: NEXT 
750 LET ¡1=;13: LET hi=h3: DIM a(j1l,h1): FOR +$=1 TO j1: FOR c=i TO hl: LET al(f,c 
)=z(4.C0)3 NEXT cz: NEXT £ 
279 REM xxxxx UPCION A CUNTINUAR 
780 1NFUT "MAS OPERACIONES (s/n)? "zas: IF as="s" THEN G0 y 19 
82 1F as="n" THEN GO TO 1000 
76% 60 1U 780 
(29% REM KXXxXxX RUTINAS 
800 Dim c(j3.h3):2 DIM z(43,h3): PRINT " La MATRIZ resultado es:": PRINT : RETUR 
N 
B10 LET 2(f.c)=c(+.C)3 LEÍ m=LEN (STRS (c(f,c)))3 1F nóm THEN  —LET m=n 
811 RETURN : 
820 IF ¡1<>32 THEN  PRINT AT 18,1:”NO SE PUEDEN SUMAR por no tenerel mismo nume 
ro de filas.": FAUSE 300: GO SUE 50: GO TO 19 
822 IF h1ix22>h2 THEN FPRINT AT 16.1: "NO SE PUEDEN SUMAR por no tenerel mismo nume 
ro de colummas.": PAUSE 300: GO SUB 50: GO TO 19 
840 IF j1<>;52 THEN PRINT AT 18,0;"NO SE PUEDEN RESTAR por no tenerel mismo num 
ero de tilas.": PAUSE 300: GO SUB 50: GO TO. 19 
842 IF hi<>2>h2 THEN PRINT AT 18,0; "NO SE PUEDEN RESTAR por no tenerel mismo num 
ero de columnmas.": PAUSE 300: GO SUB 50: GO TO 19 
844 60 TO 25 : 
800 IF (ji=1 AND hi=1) OR (j2=1 AND h2=1) THEN GOD TO 25 
662 IF h1<>j2 THEN PRINT AT 18,2;"NO SE PUEDEN MULTIPLICAR si notienen igual n 
umero de colummas de la primera matriz com el de filas de la segunda.”: PAUSE 3 
00: GO SUB 50: GO TO 19 
664 60 TO 25 
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FISICA 


Este programa: 

a) simula el trazado de rayos y la obtención de la imagen, tanto para una lente convergente 
como divergente, 

b) obtiene los resultados numéricos y cualitativos de la imagen. 

Características: Según sea la distancia focal pulsada, la lente aparece en la posición más ade- 
cuada para ver el trazado de los rayos. 

Las unidades de entrada son arbitrarias (m,cm...) de manera que los resultados se considera- 
rán expresados en la misma unidad. La expresión 0/i es la relación del tamaño objeto a tamaño 
imagen. ¡ 

Para lentes convergentes, hay seis posibilidades: 

— Objeto en el infinito. 

— Objeto entre el infinito y centro de curvatura (doble de la distancia focal): ver fig. 1. 

— Objeto en el centro de curvatura: ver fig. 4. 

— Objeto entre el centro de curvatura y el foco: ver fig. 2. 

— Objeto en el foco: ver fig. 5. 

— Objeto entre el foco y la lente: ver fig. 3. 

Para lentes divergentes, todas las posiciones del objeto conducen a un mismo caso de obten- 
ción de imagen (ver fig. 6): 


OBJETO: dizst= 7Q As 
IMAGEN: real > 
dist= 52.5 3 
invertida ls 
O y E s= TD ES Ma 
fig. 1 
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CE JETO dizszt= 1446 

IMAGE real 
dist= 14u 
invertida 
igual >= 
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COEJETO: dist=5S. Y 
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IMAGEN EN EL INFINITO 


fig. S 
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s. LET 


O0EMdE TO dJdizt<= 
LMAGE rn “ir to 
disT=-= 
derser 
menor 
fig. 6 
RESTURE 
DATA 96,145. 148,.107.17,33,65.131 
DATA 0,0,62,0,0,62,0,128 
FORK a=0 TO 7: READ m: POKE USR " "+a,m: NEXT a 
FORK a=0 TO 7: READ n: FOKE USRK " "+a,nz NEXT a 


LET pa=35: LET ti=.3: LET nl=5: LET ti=.3:2 LET ni=30: LET t2=.01: LET n2=40 
ti=.5: LET nl=10: LET te=.1: LET ne=20: LET tf=.1: LET nf=0: LET tsg=1: LE 


YT nsa=50: LET tst=.5: LET nsf=20: LET tsh=.5: LET nsh=35 


100 LET a$="": LET aa=0: LET al=0: LET bb=0: LET y=-1 

1059 EEEF tst,nsf: PRINT $03 "CONVERGENTE (Cc) DIVERGENTE (d)7? ": PAUSE O: LET z$= 
ÍNKEYS: INFUT ""2 16€ 2$="d" THEN LET t=30: GO TO 6400 

109 1F z$="c" THEN LET t=20: GO TO 120 

110 GU TO 105 

119 Rei kX*XXXXLENTES CONVERGENTESA xk k 

120 BEEFP tsft,nsf: INPUT "distancia focal (>=1 y <¿=1000)79 "¡4 

122 LeT +t1=+: LET ta=LN +/LN 10+.2: LET $f=4/ta3 IF +f1<1 OR f1>1E3 THEN GO TO 1 
20 

125 EbEr utest.nst: INFUT "Distancia objeto / lente (>=1)? ";p 

122 Le pl=p: LE p=p*ta: IF plíl1 THEN GO TO 125 

128 ir peo2x+ HEN LEY a=150-+/ta: LET b=95: LET xx=17: LET yy=0: LET b$="menor 

130 lr p=2x+ HEN LET a=12/: LET b=75: LET xx=0: LET yy=3: LET b$="igual" 

132 ¡E pot AND pozrr HEN. LET t=20+4/2: LET a=25++f/ta: LET b=120: LET xx=17: 
LET yy=0: LEÍ D$="mayor" . 

134 ír ptr HEN LEI a=20-+/ta: LET b=50: LET xx=0: LET yy=0: LET b$="mayor" 

136 ¡e pit THEN LET x=(art—-axp-px+)/(+t-p): LET y=b+t+pxt/(ft-p) 

138 ir ya Ur yYye175 THEN LET as="NO SALE EN TV" 

190 (FE p=+ HEN Leí x=1e.30 

142 Leer c=b+t:z LE O0=-t/p: LEI e=-t/f: LEÍ g=-a+p 

144 1r pe+ IHEN LEI pp=+Xp/(p-+*) 

146 lr p.3+ IHEN LEY tt=txpp/p 

145 LO subB 166 

150 FAUSE pa: EEEF tsh.nsh: PRINT AT xx,.yy3 "OBJETO: dist= "zpl: PAUSE pa: IF a- 
p+=1 (HEN 60 SUB 138 

154 Gu SUB 200 

1596 lr pt+ THEN L0 SUB 300 

108 60 TU 1000 
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166 EEEP tl.nl: PLOT a.b-50: DRAW 0,100,-10*xPI1/180: DRAW 0,-100,-10xXP1/180 

168 PAUSE pa: BEEP te,ne: PLOT O,b: DRAW 255,0 

1/2 1F a+r+f<254 THEN PAUSE pa: BEEP tf,n+: CIRCLE a+f,b,1 

173 1F a-+-1>1 THEN PAUSE pa/4: BEEP tf+,nf: CIRCLE a-f-1,b,1 

174 18 p+2x+ THEN PRINT AT 2,17;"d. focal= "$1 

176 1F po=+ AND pi2x+4 THEN PRINT AT 0,15:"d. focal= "j¡+1 

177 1F p=2*X+ THEN FRINT AT 20,10;"d. focal= ";+1 

178 ¡E p<f THEN PRINT AT 21,8;"d. focal= ";+1 

160 RETURN 

166 PAUSE paz BEEF tl,n1: PLOT a-p,b: DRAW 0,t: DRAW -1,0: DRAW -1,-1: DRAW 3,0 
DRÁW —1,1: DRKHAW -1,0: DRAW O,-t: PAUSE pa: RETURN 

“00 LET ap=a-=p: 1F ap<=1 THEN LET ap=1 

¿US FUR n=ap TU az BEE? t2,n22 PLOT n.c:z PLOT n,dx(n+g)+c: NEXT n 
“50 FUR n=a+1 10 254: 1F ABS (n-INT x)<=.5 THEN LET aa=1: LET al=1: GO SUB 400 
LS Lel h=ex(ín-=a)+c: LEY 1=dxX(n+g)+c: 1F h<O OR i<O THEN GO TO 265 
40 Eee te.nzr PLOT ni.h:z PLOT n,13 NEXT m3 1F ail=1 THEN GO TO 1000 

Los lr aa=0 AND pet HEN. LEÍ as="NU SALE EN TV"3 LET ai=1: 60 SUB 400 
Zoo 1F p=+ THEN LET al=1: FOR w=n2 TO 65 STEP .2: BEEP 1/(2xXw).w: NEXT w: BEEP 
tsn.nsn: PRINÍ AT 1%,03 FLASH 1; "1MAGEN EN EL INFIN(TU" 
2607 1F ali=1 'HEN 60 TO 1000 

270 RETURN 
300 FUR nm=a TU O STEF -1: IF ABS (n-1NT x)<=.5 THEN LET bb=1: GO SUB 450 

308 LET i=exin-ar+c: LET r=dx (n+a)+c: 1F 3>175 OR k>175 THEN 0 TO 335 

310 EEEF t2,n2: FLOT nn. 13 PLOT mk: NEXT n 

3725 ¡E bb=0 THEN LET as$="NO SALE EN TV": GO SUB 450 

340. RETURN 

400 IF y>=0 THEN  1F x<=254 THEN  1F x>=1 THEN BEEP ti,ni:z: PLOT x,b: DRAW O,-b 
+y: DRAW 1,0: DRAW 1,1: DRAW -3,0: DRAW 1,-1: DRAW 1,0: DRAW 0O,b-y 

410 IF p<>+ THEN BEEP tsh,nsh: PRINT AT xx+1,yy3"IMAGEN: real  "+a$;AT xx+2,yy 
+8; "dist= "¿INT (100Okxtak*pp+.5)/100;AT xx+3,yy+83"invertida";AT AREA TS LO" 

"s INT (100Xt/tt+.5)/100: RETURN 

450 IF y<=175 THEN. 1F x<=254 THEN  1F x>=1 THEN BEEP ti,niz FOR z=b TO y STEP 
2: BEEP ti,miz PLOT x,z3 PLOT x-1,z: NEXT z: DRAW -1,-1: DRAW 4,0: DRAW -1,1 
460 BEEP tshj,nsh: FRINT AT xx+1,yy3" IMAGEN: virtual "+a$¡AT xx+2,yy+8: "dist= " 
¡INT (10O0kXtax(a-x)+.5)/100;¡AT xx+3,yy+8; "derecha"; AT xx+4,yy+8;b53" "s INT (1 
OOXt/(y-b)+.5)/100: RETURN 

599 REM xXxXXXXLENTES DIVERGENTESA Maxx 

600 BEEF ts+.nmst: INPUT "distancia focal (>=1 y <=1000)7? ":4 

602 LET +1l=+3 LET ta=LN +/LN 10+,.2: LET f=f/ta: IF $f1<1 OR f1>1E3 THEN 60 TO 6 
00 

603 BEEF test.nst+t: INPUT "Distancia objeto/lente (>=1)? ..p 

60/ LEÍ pl=p: LET p=p/ta: 1F pl<1 THEN GO TO 405 

610 LET a=220-+/ta: LET b=YS: LET xx=17: LET yy=0: LET as="": LET b$="menor": L 
ET c=b+ti¿ LET d=-2=/p: LET g=p-a: LET e=t/f 

615 LET x=(aXxt+akxp-px+)/(p++): LET y=(txf+bDxXp+4Xkb)/(p++) 

620 BEEP ti,j,nl: PLOT a-2,b-50: DRAW 0,100,10XPI/180: DRAW 4,0: DRAW 0,-100, 10xP 
1/180: DRAW -4,0 ] 

630 PAUSE pa: KEEF te,ne: PLOT O,b: DRAW 255,0 

632 1F a+rf<=254 THEN PAUSE pa: BEEP t+f,nf: CIRCLE a+f,b,1 

633 IF a-f-1=1 THEN PAUSE pa/4: BEEF t+,nf: CIRCLE a-f-1,b,1 

6339 PRINT AT 2,15; "d.focal= ";¡*f1 

645 FRINT AT xx,yyi "OBJETO: dist= ";pl:z PAUSE pa: IF a-p>=1 THEN GO SUB 188 
650 LET ap=a-p: IF ap<=1 THEN LET ap=1 

655 FOR n=ap TO a: BEEP t2,n2: PLOT n,c:z PLOT n,dXx(n+g)+c: NEXT n 

680 FOR n=a+1 TO 254: LET h=exkx(n-a)+c: LET i=dx(n+g)+c: IF i<O OR h>175 THEN G 
O TO 710. : 

700 BEEP t2.n2: PLOT nh: PLOT nm,iz NEXT n 

710 PAUSE pa: FOR n=a TO O STEP -1:3 IF ABS (n-INT x)<=.S THEN LET al=1: GO SUB 


720 LET h=ekin-a+c: 1F h<O THEN GO TO 730 

723 BEEP t2,n2: PLOT n,h: NEXT nm 

730 IF al=0 THEN LET a$="NO SALE EN TV": GO SUB 450 
3992 PRINT +03" PULSA UNA TECLA ": PAUSE O: INPUT ""; RETURN 


QUIMICA 


El programa trata de reacciones químicas de recombinación de iones. Es decir, reacciones 
del tipo: 


R1+R2-P1+P2 


donde R1,R2 son los reactivos y P1,P2 son los productos. Cada uno de ellos puede ser un ácido, 
una base o una sal. 

El ordenador te plantea el miembro de la izquierda en la reacción anterior, y por recombina- 
ción de iones debes responder los dos productos. El programa consta de los cinco bloques si- 
guientes (ver listado adjunto): 

1. Almacenaloscationes, su valencia, los aniones y su valencia. Se han elegido 43 cationes y 
26 aniones. 

2. Elige aleatoriamente (línea 45) el primer reactivo y luego (líneas 70 y 73), el segundo (ver 
fig. 7). 

sd Solicita al usuario los productos de la reacción, que se pueden dar en cualquier orden. 
Hay que seguir la norma de escribir primero el catión y luego el anión. 

4. Genera el verdadero producto Pl (a partir de la línea 120), y luego el P2 (a partir de la 
160). 

5. Comprueba la respuesta (líneas 205 y 210), dando la solución si has fallado (ver fig. 8). 

Hay la posibilidad de continuar o no. Al final te dice cuántas reacciones has tenido bien. 

En los ejemplos de las figuras, los reactivos han sido: 


fig. 7: SAL + BASE = 
fig. 8: SAL +SAL = 
fig. 9: BASE + ACIDO = 


Ha TIOS + Fe COPI=3 
+ 


Fe CLHLUSIo Ma CHA 


CORRECTO 


fig. 7 
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REM REACCIONES QUIMICAS 

REM numero de iones 

LET nc=43: LET ma=26: LET p=0: LET v=03 LET w=0 
DIM cs(ínc,2): DIM a$ína, 4): DIM cnc): DIM alna) 
CLS : BORDER 1: PAPER 6: INK Oz CLS 

FOR i=1 TO mc: READ cs$(i),c(i): NEXT i 

FOR i=1 TO ma: READ a$(i),a(i)s NEXT i 


CLS : LET x$=""2 LET ys="" 

LET si=INT (RNDinc)+1: LET ti=INT (RNDina)+1i3 IF c$(si)="H " AND as$1(t1)="0H 
THEN 60 TO 435 

REM primer reactivo 

LET w=w+1: PRINT AT 5,53c$(sl)3:2 IF c$(s1,2)=" " THEN PRINT CHR$ 8; 

IF a(t1)<>-1 AND -a(ti)<>c(s1) THEN PRINT -a(t1); 

PRINT " "32 IF c(s1)<>1 AND —a(ti)<>c(s1) AND (a$(t1,4)<>" " OR a$(t1,3)<>" 
THEN PRINT "("¿: LET p=1 

1F c(si)<>1 AND así(ti)>="DH  " THEN -PRINT "("3:3 LET p=1 

PRINT a$(t1);: IF a$(t1,4)=" " THEN PRINT CHR$ 8: IF a$(t1,3)=" " THEN P 
CHR$ 83: IF a$(t1.,2)=" " THEN PRINT CHR$ 8; 

IF p=1 THEN PRINT ")";: LET p=0 

1F c(sl)<>1 AND -—-atti)»<>c(si) THEN PRINT c(si); 

PRINT O" +"; 

REM segundo reactivo 


LET s2=INT (RNDANnc)+1: 1F c$ísi)=c$(s2) THEN GO TO 70 
LET t2=IN1f (RNDkna)+1: 1F a$(t1)=a$(t2) THEN GO TO 73 
IF csís2)="H * AND as(t2)="0H  " THEN GO TO 73 

1F c(s1)=4 AND aít2)=-2 THEN LET c(si)=2: LET a(t2)=-1 
IF c(s2)=4 AND a(t1)=-2 THEN LET c(s2)=23 LET a(t1)=-1 
PRINT cs$íis2)3: 1F có(s2,2)=" " THEN . FRINT CHRs 8; 

1F a(t2)<>-1 AND -a(t2)<>c(s2) THEN PRINT .-a(t2);5 


3 PRINT " "33 IF c(s:<)<>1 AND —-alít2)<>c(s2) AND (as(t2,4)<>" " OR as(t2,3)<>" 
THEN - PRINT "(33 LET p=1 

IF c(s:z2)<>1 AND as(t2)="DH " THEN FPRINT "(32 LET p=1 

PRINT A$(t2);: 1F as$(t2,4)=" * THEN PRINT CHR$ 83: 1F a$(t2,3)=" " THEN P 

CHR$ 8: IF a$(t2,2)=" " THEN PRINT CHR$ 8: 

IF p=1 THEN PRINT ")"3: LET p=0 

IF c(s2)<>1 AND —aít2)<>c1(s2) THEN FPRINT c(s2)3 

PRINT " = "3¿ PRINT 

REM respuestas 


INPUT "PRIMER PRODUCTO ? "¡P$: PRINT TAB 5;p$+". + "; 


. INPUT "SEGUNDO PRODUCTO ? ";¿q$%: PRINT q5$ 

REN. generacion producto 1 -. 

LET m$=c$(s1,1): IF c$(s1,2)<>" " THEN LET m$=m$+c5$(s1,2) 

IF a(t2)<>-1 AND -a(t2)<>c(s1).THEN LET m$=m$+STR$ (-a(t2)) 

IF c(si)<>1 AND -—a(t2)<>c(s1) AND a$(t2,3)<>" " THEN LET x$=x3$+"("2 LET p= 
IF c(si2<>1 AND as(t2)="DR " THEN LET x$="(":3 LET p=1 

LET xSs=x$+a$(t2,1) 


IF a$(t2,2)<>" " THEN LET x$=x$+a$(t2,2):2 IF a$(t2,3)<>" " THEN LET x$=x$ 


+a$(t2,3): IF a$(t2,4)<>" " THEN LET x$=x$+a$(t2,4) 


142 
145 
150 
158 
160 
166 
170 
1 
173 
175 
180 


IF p=1 THEN LET xs$=x$+")"z LET p=0 

IF cí(si)<>1 AND -a(t2)<>c(s1) THEN LET-x$=xS5+STR$ c(s1) 

LET vse=m$+x$: LET ws$=m$+" "+x$: IF w$="H OH" THEN LET w$="H20" 

REM generacion producto 2 

LET ns=c$(s2,1):3 IF c$(s2,2)<>" " THEN LET 'n$=n$+c$ (s2,2) 

IF a(t1)<>-1 AND -a(t1)<>c(s2) THEN LET n$=n$+STR$ (-a(t1)) 

1F cís2)<>1 AND -a(ti1)<>c(s2) AND a$(t1,3)<>" " THEN LET y$=y$+"(": LET p= 


IF c(s2)<>1 AND as(t1)="0H " THEN LET y$=y$+"("2 LET p=1 
LET ySs$=ySt+ta$(t1,1) 
IF asíti.2)<>" " THEN LET yS$=y$+a$(t1,2):3 IF a$(t1,3)<>" " THEN LET y$=y% 


+a$(t1,3): IF as(t1,4)<>" " THEN LET yS$=y$+a$(t1,4) 


182 
135 
1960 
200 
205 
210 
220 


1F p=1 THEN LET yS=y$+")":z LET p=0 

IF c(s2)<>1 AND —-aí(t1)<>c(s2) THEN LET y$=y5+STR% c(s2) 

LET rs=n$+y8: LET s$=n3$+" "+y$: IF ss="H OH" THEN LET s$="H20" 
REM comprobacion 

IF (ps=v$ OK p$=w3) AND (as=r$ OR q$=8$) THEN GO TO 250 

IF (ps=r$ OR p$=s$) AND (q$=v$ OR q$=w$) THEN GO TO 250 

FRINT 3 PRINT TAB 83 FLASH 1:"NO ES - CORRECTO": FRINT 
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230 
240 
250 
300 
310 
330 
340 


PRINT : PRINT TAB S;"LOUS PRODUCTOS SON": PRINT 
PRINT TAB Siws+" + "+s$: GO TO 300 


PRINT PRINT 
PRINT FRINT 
PRINT : PRINT 
1F INKEYS="c" 
IF INKEYS$="p" 


NTUACION :": PRINT 


360 


GO TO 330 


: PRINT TAB 13; FLASH 1;3"CORRECTO": LET V=Y+1 

¿ PRINT  INVERSE 13" PULSA C PARA CONTINUAR"; TAB 32 
INVERSE 1" Y. P FARA PARAR"¿TAB 32 

THEN GO-TO 40 

THEN (CLS : PAFER 1: BORDER 13 INK S: CLS : PRINT AT 9,11;3"”PU 

: PRINT " DE "¿W;" REACCIONES,HAS ACERTADO ";V: STOP 


500 DATA “Li "1.*Na? 1,005, 1,09 1 "E8% d, BR", 2/90, 27H", 1 Co, 2, "000,30" 
, 15 "Pa", 2, "Pb",4, "Ba",2, "Ca",2, A 1, "Cu*”; 1, "Cu",2, "Yu,3, "nu", 1, "vs "in 2 AA 
1 , .cr” ¡da Lal 3 ll a 3, "ea" A La "Fe",3, a 1 , "Ag", 1, "Cd. 2 "Al As 3, la 1, "Ni "ls "Ni ..3, a 
. 1, “Au”, Li "Qu',3, "Hg", 1, a 1, “"Ha";s2, "Sn*,2, "Sn",4, .4%, 1 a 

520 DATA "104%,-1,"103",-1,"C1",-1,"Br",-1,"0H",-1,"1",-1,"S",-2,"C03",-2, "Si03 


nn 2? 
9 -y 


"yn" .-1 S "NO3" 


¿=1,"N02",-1,"P04",-3, "PO3",-3,"0H",-1,"S04",-2,"S03",-2,"C104 


“y-1,"C103",-1,"0H",-1,"102",.-1,"A504",-3,"As03",-3,"0H",v+1, "BrO03",-1,"BrO02",-1 
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BIOLOGIA 


En este programa se estudia el crecimiento en términos numéricos de un gen recesivo, A,, 
frente a otro dominante, A,. Vamos a suponer mutaciones recurrentes, o sea, sistemáticas, del ti- 
po A, — A,, que pueden ser de dos tipos: 

— Irreversibles, cuando solamente ocurren en el sentido A; > A). 

— Reversibles, cuando se da simultáneamente la mutación A, > A. 

Mutación irreversible. —Según los libros de Biología, siuesla velocidad de la mutación A, > 
A, por generación, 


n.? de genes que mutan a A, 
n.? de genes totales 


y siqyeslafrecuencia o porcentaje inicial del gen A,, la frecuencia de este genalcabo den genera- 
ciones es: 


q, = 1 - 
em 


El programa pide los datos de u y de q, y dibuja el crecimiento del gen A, en función del 
número n de generaciones transcurridas. Véase la fig. 10, que son tres crecimientos a efectos de 
comparación, con q,=0,1 siempre fijo, y u=1E-5,4E-5 y 1E-4, sucesivamente. 

Mutaciones reversibles.—Sean las velocidades: 

u, para la mutación A, > A, 
v, para la mutación A, > A, 
Entonces, si llamamos a 


u . . 
= ——— ,la frecuencia del gen A, al cabo de n generaciones es: 
u+v E 


elu+tvin 


siendo, como antes, q, su frecuencia inicial. 
El programa pide los datos de u,v y q, dibujando entonces la evolución del gen A,.Se han ele- 
gido los dos ejemplos siguientes: 
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Esinstructivo verla dependencia de la evolución de un gen respecto de cada uno de susfacto- 
res causantes, y con este programa se puede hacer fácilmente. Cada una de las partes del mismo 
está comentada en el listado adjunto. 


fig. 10 
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REM xxx 


EURDER 3: PAPER 1: 


CRECIMIENTO DE UN GEN  RECESIVO 


INK 7: 
PRINT AT 5,103 "TIPO MUTACION 23"... "i-irreversible",,"2-reversible" 


317210*:= rr 


Xxx 


CLS 


PRINT AT 16,9;"TECLEA OPCION" 


LET as=INKEYS 


THEN GO TO SO 


Xxx 


IF a$<>"1" AND as$<>"2" 

CLS : GO SUB 1000 

GO TO 3OOXVAL as$ 

REM xxx MUTACION IRREVERSIBLE 
INPUT "vel. Al->A27?(0-0.001)";zu 
IF u>1iE-3 THEN (GO TO 310 


INPUT "frec. 
IF q>.3 THEN (GO TO 330 


FOR n=0 TO 11700 STEP 50 


LET gn=1-(1-q)/EXFP (uxn) 


inicial.de A22?(0-0.3)"3q 


IF gnx320>164 THEN GO TO 420 


PLOT n/S50+20,gnx320+10 
NEXT n 


GO SUB 2000: GO TOD 310 


Kxx 


A1->A27? (0-0.001)";u 


REM Xxx MUTACION REVERSIBLE 
INPUT "veloc. 
IF u>1E-3 THEN GO TO 610 


INPUT "vel. 


INPUT "*frec. 
LET qb=u/ (u+v) 


FOR n=0 TO 11700 STEP S50 


A2->A17?(0-0.001)"3v 
IF v>1E-3 THEN (GO TO 630 
inicial de A2?(0-0.3)"53q 


720 LET qn=qb+(q-qb)/EXP ((u+v)kn) 
730 IF qgnx320>164 THEN GO TO 780 
750 PLOT n/S0+20,qnx320+10 

760 NEXT nm 

780 GO SUB 2000: GO TO 610 


1000 REM AXx DIBUJO DE EJES xxx 

1010 PLOT 20,175: DRAW 0,-165: DRAW 230,0 

1030 FOR i=24 TO 244 STEP 4 

1040 PLOT i,10: DRAW 0,-2: NEXT i 

1050 PRINT AT 21,31; "n 

1060 FOR i=10+32 TO 170 STEP 32 

1070 PLOT 20,i: DRAW -3,0: NEXT i 

1080 PRINT AT 16,03".1";5AT 12,03".2"¡AT 8,05".3"¿AT 4,03".4";3AT 0,0;3".5" 
1090 PLOT 54,3: DRAW 6,0: DRAW -2,2: DRAW 2,-2: DRAW -2,-2 
1110 PLOT 70,3: DRAW -6,0: DRAW 2,2: DRAW--2,-2: DRAW 2,-2 
1120 PRINT AT 0,3;"q";3AT 21,10;"200 generaciones" 

1130 RETURN 


2000 REM Kkxk MAS GRAFICAS - Xxx 
2010 INPUT "otra grafica?(s/n)";z% 
2020 IF z$<>"S" AND z2$<>"s" THEN STOP 
2050 RETURN 


INGLES 


Como último programa vamos a comentar uno que nos servirá como agenda de verbos irre- 
gulares en inglés, así como de entrenamiento en traducción. 

Una vez almacenados los tres tiempos en inglés (presente, pasado y participio), así como su 
traducción, el programa presenta un menú de tres opciones (ver fig. 13): 

1. verboregular oirregular: hay que dar un infinitivo eninglés. El programa busca entonces 
entre los verbos almacenados, y sino lo encuentra lo toma como un verbo regular. Si está almace- 
nado, da los tres tiempos (ver fig. 14). 

2. repaso de pasado y participio: el ordenador elige al azar un verbo y un tiempo, que puede 
ser pasado o participio. Lo muestra en pantalla y pide el tiempo y el infinitivo en inglés (ver fig. 
15% 

El convenio es el siguiente: asignamos un 2 al pasado y un 3 al participio. Así, para dar la res- 
puesta se teclea primero el número correspondiente y después, sin dejar espacios en blanco, el 
infinitivo. Osea, las respuestas deben empezar por un 2, por un 3 o por un 23 (para el caso que 
coincidan el pasado y el participio). 

3. traducción al inglés: el ordenador elige cualquier tiempo de cualquier verbo. Solicita la 
traducción al inglés, dando el infinitivo en castellano (ver fig. 16). 

Características: Las respuestas deben darse exactamente, por ser una exigencia enla compa- 
ración entre cadenas. Es decir, como sabes, no eslo mismoteclear «elegir» que «Elegir». Sihas fa- 
llado en algo, el ordenador te da la respuesta correcta, indicando dónde está el fallo. 

Por brevedad sólo se han almacenado 20 verbos (hay 175 verbos irregulares). Si queremos 
ampliarla lista no tienes más que cambiar la variable n en la línea 700. y procurar que ninguna ca- 
dena sobrepase 10 caracteres. 
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1 REM xxx VERBOS IRREGULARES EN INGLES ' Xxx 
10 DATA "SER", "BE", "WAS", "BEEN", "GOLPEAR", "BEAT", "BEAT", "BEATEN" 
20 DATA "CAMBIAR", "BECOME", "BECAME", "BECOME", "ATAR", "BITE", "BIT","BITTEN" 
30 DATA "SOPLAR", "BLOW", "BLEW", "BLOWN", "ROMPER", "BREAK", "BROKE", "BROKEN" 
40 DATA "TRAER", "BRING", "BROUGHT", "BROUGHT", "EDIFICAR”", "BUILD", "BUILT", "BUILT" 
50 DATA "ARDER", "BURN", "BURNT","BURNT", "COMPRAR", "BUY", "BOUGHT", "BOUGHT" 
60 DATA "ELEGIR", "CHOOSE", "CHOSE", "CHOSEN", "TRATAR", "DEAL", "DEALT", "DEALT" 
70 DATA "BEBER", "DRINK", "DRANK", "DRUNK", "COMER", "EAT", "ATE", "EATEN" 
80 DATA "CAER", "FALL", "FELL","FALEN", "SENTIR", "FEEL", "FELT", "FELT" 
90 DATA "LUCHAR", "FIGHT", "FOUGHT", "FOUGHT", "PERDONAR", "FORGIVE”, "FORGAVE", "FOR 
GIVEN" 
100 DATA "IR",."GO", "WENT", "GONE", "CRECER", "GROW", "GREW", "GROWN" 
695 REM ALMACENAMIENTO DE LOS VERBOS 
700 POKE 23658,8: LET n=20: REM m ES NUMERO DE VERBOS A ALMACENAR 
720 DIM e$(n,10): DIM a$(n,3,10): DIM 2$(3,10) 
740 FOR i=1 TO n 
760 READ e$(i): FOR j=1 TO 3: READ a$(i,3): NEXT 5 
780 NEXT i 
800 LET p$="PRESENTE PASADO PARTICIPIO" 
810 LET r$=" ES UN VERBO REGULAR" 
820 LET Z$(1)="PRESENTE": LET Z$(2)="PASADO": LET Z$(3)="PARTICIPIO" 
900 CLS : PRINT AT 5,5; "OPCIONES: " 


910 PRINT : PRINT "i-verbo regular o irregular” 
920 PRINT : FRINT "2-repaso de pasado y participio" 
930 PRINT : PRINT "3-traduccion al ingles" 


950 INPUT "OPCION 2 ";h 

960 IF h<>INT h OR h<1 OR h>3 THEN GO TO 950 
990 CLS : GO SUB 1000kXh: GO TO 900 

993 REM VERBO REGULAR O IRREGULAR 
1000 INPUT "INFINITIVO EN INGLES?";i3 

1020 IF i$="M" THEN RETURN 

1040 LET j¡$=i$5: FOR i=LEN i$ TO 9% LET j¿¡$=j$+" ": NEXT i 
1060 FOR i=1 TO n 

1080 IF a$(i,1)=j% THEN GO TO 1500 

1090 NEXT i 

1100 PRINT : PRINT i$+r$: GO TO 1000 


1500 PRINT : PRINT p$: PRINT a$(i,1);TAB lija$(i,2);TAB 21;a$(1,3) 
1600 GO TO 1000 
1995 REM PASADO Y PARTICIPIO 


2000 LET £$=INT (RNDk*n)+1: LET c=INT (RND*x2)+2 

2020 PRINT : PRINT a$(f,c);": TIEMPO E INFINITIVO EN INGLES? "; 
2040 INPUT i$: PRINT i5 

2050 IF i$="Mm" THEN RETURN 

2060 IF i$(1 TO 2)="23" THEN (GO SUB 7000: GO TO 2000 

2080 IF i$(1)="2" THEN GO SUB 5000: GO TO 2000 

2100 IF i$(1)="3" THEN GO SUB 6000: GO TO 2000 

2120 PRINT  INVERSE 1;" DAME LA RESPUESTA SEGUN REGLAS ": GO TO 2020 
2993 REM TRADUCION AL INGLES 

3000 LET +$=INT (RNDin)+1: LET c=INT (RNDX*x3)+1 

3020 PRINT : PRINT z$(c);" del verbo "¡es$(f) 

3040 INPUT i$: FRINT TAB 7:i$; 

3060 IF i$="M" THEN RETURN 

3080 LET j$=i$: FOR i=LEN i$ TO 9%: LET ¡$=Js$+" " 

3100 NEXT i 

3120 FOR i=1 TO n 

3140 IF j¡$=a$(+f,c) THEN FRINT TAB 203 "CORRECTO!": GO TO 3000 
3160 NEXT i ' 

3180 PRINT TAB 26: "FALLO.La respuesta es "zja$(f,c): GOD TO 3000 
5000 LET j$=i$(2 TO ): FOR i=LEN i$ TO 103 LET j¡$=j8+" "z¿ NEXT i 
5020 IF c=2 AND j¿¡$=a$(f,1) THEN PRINT TAB 17; "CORRECTO": RETURN 
5040 IF c=3 AND j¡$=as$(f.1) THEN PRINT : PRINT "MAL.Era el participio de "¡a$(f, 
1): RETURN 

5060 PRINT "MAL.El infinitivo es "ja$(f,1): RETURN 

5999 

6000 LET j¡$=i$(2 TO ): FOR i=LEN i$ TO 10: LET j¡$=j$+" ": NEXT i 
6020 IF c=3 AND j$=a$(f,1) THEN PRINT TAB 17; "CORRECTO": RETURN 
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6040 IF c=2 AND j¿¡$=a$(f,1) THEN PRINT "MAL.Era el pasado de "za$(4f,1): RETURN 


6060 FPRINT 
6999 
7000 LET ¿¡$=i$(3 TO ): 


"MAL.El infinitivo es "¡a$(f,1): 


RETURN 


FOR i=LEN i$ TO 113 LET j¡$=3$+" "2: NEXT i 


7020 IF a$(f,2)=a$(f,3) AND j¡$=a$(f,1) THEN PRINT TAB 17;"CORRECTO": RETURN 
7040 IF a$(f,2)=a$(f,3) THEN FRINT "FALLO en traduccion": PRINT "Es el verbo "; 


a$(f,1): RETURN 


7060 IF ¡$=a$(f,1) THEN FRINT ":fallo en el tiempo": 


.2): PRINT "Y el participio es "ja$(f,3): 
7080 FRINT TAB 20; INVERSE 13"TODO MAL": 
7100 IF a$(f,2)=a$(4,7) 


7150 PRINT z$(c);" de "zja$(f,1): RETURN 


OPCIONES: 


PRINT "El pasado es "¡as$(4 
RETURN 
PRINT a$(f,c);"es el 


Ma 
> 


THEN PRINT "PASADO y PARTICIPIO de ";¡a$(f,1): RETURN 


lAevereo regular ao irregu Lar 
2-repaso de Pasado Y Par ticiPi0o 
S-traduccionm al imgles 

fig. 13 
LOVE Es UM LUERBGO REGULAR 
PRESENTE PASACO PARTICIPIO 
EUR: Im SURNT SURMT 
PRESENTE PASADO PARTICIPIO 
CRIMEA CORANA DRUNK 
PRIMT Es UM UEREO REGULAR 
PRESENTE PASADO PARTICIPIO 
FIGHT FOnUSHAHT FOUGHT 
FORGET 3 UN VUEREO REGULAR 

fig. 14 
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APENDICE 


A fin de que sean trasladables las sentencias y, en consecuencia, los programas descritos en el 
presente libro, se dan las indicaciones y sugerencias adecuadas para ordenadores compatibles 
PC en los lenguajes GWBASIC y BASICA. 

— La palabra clave LET no es necesario ponerla. 

— No es necesaria la variable del bucle después de la sentencia NEXT (asume la de iniciali- 
zación del bucle). 

— Todas las variables se inicializan a O tras el RUN. 

— Para fraccionamiento de cadenas, ver pág. 71. 

— La sentencia DIM puede dimensionar varias matrices si éstas se separan por comas. 

— Todas las funciones matemáticas y de cadena han de tener los argumentos siempre entre 
paréntesis. 

— La opción de impresión dada por PRINT AT f,c: “HOLA” se sustituye por 

LOCATE f.c:PRINT “HOLA” 

— La coma de tabulación salta 14 espacios. 

— La sentencia PAUSE es conveniente sustituirla por un bucle FOR..NEXT en vacío 
(1000 iteracciones= | seg). 

— Es necesario especificar el modo de pantalla al inicio de programa: 

para texto de 40 columnas: SCREEN 1,0,0 
para texto de 80 columnas: SCREEN 2,0,0 
para gráficos (320x200): SCREEN 1,0,0 

— La sentencia PLOT tiene su equivalente por la PSET. Ahora bien, PLOT tiene el origen 

en el ángulo inferior izquierdo, mientras PSET lo tiene en el superior izquierdo; por ello, 


PLOT xy > PSET (x,175-y) 
— La sentencia DRA W se sustituye por la LINE 
DRAW ab > LINE (x.y ¡)-(X>,y>) 
donde a=x)>,-x; 


D=Y,=Y, 


159 


— La sentencia CIRCLE tiene varias expresiones: 
para circunferencias completas: 


CIRCLE (x,y),r 


para arcos: 
CIRCLE (x,y),r,c,p,f 


donde x,y son las coordenadas del centro. 
r esel tamaño del radio en pixels. 
c esel color (0 a 3). 


p esla posición del comienzo del dibujo, en radianes, y tomados a partir de las 3 horas 
del reloj. 


f esla posición final del arco con las características del parámetro anterior. 
— La sentencia de sonido BEEP se sustituye por SOUND: 
BEEP t,f > SOUND ft 


donde, para compatibles PC, fes la frecuencia y vade 37232767 Hz, teseltiempo,de0a65535 
impulsos, siendo la duración de un impulso 1/18,2 seg. en el GWBASIC. 
Todas las sentencias no comentadas aquí permanecen inalterables. 
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